      IDENTIFICATION DIVISION.
      PROGRAM-ID. 156B.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 INP PIC X(100).
      01 N PIC 9(9).
      01 K PIC 9(2).
      01 SHO  PIC 9(9).
      01 AMA  PIC 9(2).
      01 CNT  PIC 9(9).
      01 CNTX PIC ZZZZZZZZ9.
      PROCEDURE DIVISION.
      ACCEPT INP.
      UNSTRING INP DELIMITED BY " "
      INTO N K.
            
      MOVE 1 TO CNT.
      PERFORM UNTIL N < K
      DIVIDE K BY N GIVING SHO REMAINDER AMA
      COMPUTE SHO = N / K
      MOVE SHO TO N
      ADD 1 TO CNT
      END-PERFORM.
      
      MOVE CNT TO CNTX.
      DISPLAY FUNCTION TRIM(CNTX).
      
      STOP RUN.
      
