implicit none integer :: a,b read *,a,b print '(i0)',(b+a-1)/a end