program main
      implicit none
      integer :: h, a, i

      read *, h,a
      i = 0
      do
        h = h - a
        i = i + 1
        if ( h <= 0 ) then
          print *, i
          exit
        end if
      end do
end program main
