      IDENTIFICATION DIVISION.
      PROGRAM-ID. 156A.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 INP PIC X(100).
      01 N PIC 9(3).
      01 K PIC 9(4).
      
      01 ANS PIC ZZZ9.
      
      PROCEDURE DIVISION.
      ACCEPT INP.
      UNSTRING INP DELIMITED BY " "
      INTO N K.
      
      IF N < 10
      	COMPUTE ANS = K + 100 * ( 10 - N )
      ELSE
      	MOVE K TO ANS
      END-IF
      
      DISPLAY FUNCTION TRIM(ANS).
      
      STOP RUN.