000010 IDENTIFICATION  DIVISION.
000020 PROGRAM-ID.     MAIN.
000030 ENVIRONMENT     DIVISION.
000040 DATA            DIVISION.
000050 WORKING-STORAGE  SECTION.
000060 01 STR        PIC 99.
000070 01 ANS		  PIC 99.
000080 *     
000090 PROCEDURE DIVISION.
000100 * 
000110 ACCEPT STR.
000120 COMPUTE ANS = 48 - STR.
000130 DISPLAY ANS.
000140 STOP RUN.