IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-SUBTRACT-11.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-TOTAL      PIC 999 VALUE 000.
01  WS-RETRAIT    PIC 999 VALUE 000.
01  WS-RESTE      PIC 999 VALUE 000.

PROCEDURE DIVISION.
    DISPLAY "Entrez un total (000 a 999) : "
    ACCEPT WS-TOTAL
    DISPLAY "Entrez un retrait (000 a 999) : "
    ACCEPT WS-RETRAIT

    MOVE WS-TOTAL TO WS-RESTE
    SUBTRACT WS-RETRAIT FROM WS-RESTE

    DISPLAY "Reste : " WS-RESTE
    STOP RUN.