IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-ADD-10.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-A   PIC 99 VALUE 00.
01  WS-B   PIC 99 VALUE 00.
01  WS-TOTAL      PIC 999 VALUE 000.

PROCEDURE DIVISION.
    DISPLAY "Entrez le premier nombre (00 a 99) : "
    ACCEPT WS-A
    DISPLAY "Entrez le deuxieme nombre (00 a 99) : "
    ACCEPT WS-B

    ADD WS-A TO WS-TOTAL
    ADD WS-B TO WS-TOTAL

    DISPLAY "Total : " WS-TOTAL
    STOP RUN.