IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-END-IF-06.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-AGE               PIC 99    VALUE 00.
01  WS-STATUT            PIC X(06) VALUE SPACES.

PROCEDURE DIVISION.
    DISPLAY "Entrez un age (00 a 99) : "
    ACCEPT WS-AGE

    IF WS-AGE >= 18
        MOVE "MAJEUR" TO WS-STATUT
        DISPLAY "Statut calcule : majeur."
    ELSE
        MOVE "MINEUR" TO WS-STATUT
        DISPLAY "Statut calcule : mineur."
    END-IF

    DISPLAY "Statut memorise : " WS-STATUT

    IF WS-STATUT = "MAJEUR"
         DISPLAY "Acces autorise."
    END-IF

    STOP RUN.