program main implicit none real(8) :: a, b read *, a, b print *, int(ceiling(b / a)) end program main