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