  Program Main

    Implicit None
    Integer              :: k,H,A

    H = 0 ; A = 0 ; k = 1
    Read(*,*) H,A

    Loop:Do
            H = H - A
            If ( H <= 0 ) Exit Loop
            k = k + 1
         Enddo Loop

    Write(*,"(I0)") k

  End Program
