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