IDENTIFICATION  DIVISION.
PROGRAM-ID.     MAIN.
ENVIRONMENT     DIVISION.
DATA            DIVISION.
WORKING-STORAGE  SECTION.
01 X        PIC 999.
01 ANS		  PIC 99.
      
PROCEDURE DIVISION.
 
ACCEPT X.
DISPLAY "ABC"X.
STOP RUN.
