       IDENTIFICATION DIVISION.
       PROGRAM-ID. test156.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 AAA.
         03 RATE PIC 9(4).
         03 A PIC 9(2).
         03 NAIBU PIC 9(4).
         03 X PIC 9(2).
       PROCEDURE DIVISION.
       MAIN.
       MOVE LOW-VALUE TO AAA.    
       ACCEPT RATE.
       ACCEPT NUMBERS.
       COMPUTE X = 100 * (10 - NUMBERS).
       COMPUTE NAIBU = RATE + X.
      	DISPLAY NAIBU.
        STOP RUN.