      IDENTIFICATION DIVISION.
      PROGRAM-ID. 059A.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 INP PIC X(100).
      01 S1.
        03 S1A PIC X(1).
      	03 S1B PIC X(9).
      01 S2.
        03 S2A PIC X(1).
      	03 S2B PIC X(9).
      01 S3.
        03 S3A PIC X(1).
      	03 S3B PIC X(9).
      01 ANS.
        03 ANS1 PIC X(1).
        03 ANS2 PIC X(1).
        03 ANS3 PIC X(1).
            
      PROCEDURE DIVISION.
      ACCEPT INP.
      UNSTRING INP DELIMITED BY " "
      INTO 	S1
      		S2
      		S3.
      MOVE S1 TO ANS1.
      MOVE S2 TO ANS2.
      MOVE S3 TO ANS3.
      
      DISPLAY ANS.
      
      STOP RUN.