       IDENTIFICATION DIVISION.
       PROGRAM-ID. test1.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PICTURE 999.
       01 B PICTURE 999.
       01 REN PICTURE 9999.
       01 RE PIC Z(4).
       PROCEDURE DIVISION.
       MAIN.
        ACCEPT A.
        ADD 1 TO A GIVING B.
        COMPUTE REN=A*B/2.
        MOVE REN TO RE.
        DISPLAY RE.
        STOP RUN.