IDENTIFICATION DIVISION.
       PROGRAM-ID. AJOUT.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 99 VALUE 5.
       01 B PIC 99 VALUE 10.

       PROCEDURE DIVISION.
           ADD A TO B.
           DISPLAY B.
           STOP RUN.