IDENTIFICATION  DIVISION.
PROGRAM-ID.     MAIN.
ENVIRONMENT     DIVISION.
DATA            DIVISION.
WORKING-STORAGE  SECTION.
01 STR        PIC 99.
01 ANS		  PIC 99.
      
PROCEDURE DIVISION.

ACCEPT STR.
COMPUTE ANS = 48 - STR.
DISPLAY ANS.
STOP RUN.