IDENTIFICATION DIVISION.
PROGRAM-ID. A-BEGINNER.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 INP     PIC X(100).
01 IN-DATA.
   03 DT-X1 PIC X(10).
   03 DT-X2 PIC X(10).
01 IN-LEN.
   03 DT-L1 PIC 9(2).
   03 DT-L2 PIC 9(2).
01 IN-N     PIC 9(3).
01 IN-R     PIC 9(4).
01 OUT-R    PIC ZZZ9.

PROCEDURE DIVISION.
MAIN-001.
  ACCEPT INP.
  UNSTRING INP DELIMITED BY ALL ' '
      INTO DT-X1 COUNT IN DT-L1
           DT-X2 COUNT IN DT-L2.
  MOVE DT-X1(1:DT-L1) TO IN-N.
  MOVE DT-X2(1:DT-L2) TO IN-R.

  IF (IN-N >= 10)
     MOVE IN-R TO OUT-R 
  ELSE
     COMPUTE OUT-R = IN-R + 100 * (10 - IN-N)
  END-IF.
  DISPLAY OUT-R.

MAIN-EXIT.
  STOP RUN.
