program main implicit none real(8) :: S, F read *, S, F print *, int(floor(S / F)) + 1 end program main