program main implicit none integer::a,b read *, a,b print *, (b+(a-mod(b,a)))/a end program main