000010 IDENTIFICATION                   DIVISION.
000020 PROGRAM-ID.                      MAIN.
000030*
000040 ENVIRONMENT                      DIVISION.
000050*
000060 DATA                             DIVISION.
000070 WORKING-STORAGE                  SECTION.
000080 77 VAL                           PIC 9(3).
000090 77 ANS                           PIC 9.
000100*
000110 PROCEDURE                        DIVISION.
000120 MAIN.
000130     ACCEPT VAL                   FROM SYSIN.
000140     DIVIDE VAL BY 9 GIVING VAL REMAINDER ANS
000150     DISPLAY ANS                  UPON SYSOUT.
000160     STOP RUN.
