IDENTIFICATION DIVISION.
PROGRAM-ID. CONDITION-IF-ELSE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  AGE                   PIC 99      VALUE 00.
01  MANQUANT              PIC 99      VALUE 00.
01  MESSAGE-ACCES         PIC X(40)   VALUE SPACES.

PROCEDURE DIVISION.
    DISPLAY "Entrez votre âge : ".
    ACCEPT AGE.

    IF AGE >= 18
        MOVE "Accès autorisé - Bienvenue !" TO MESSAGE-ACCES
        DISPLAY MESSAGE-ACCES
    ELSE
        MOVE "Accès refusé - Vous êtes mineur." TO MESSAGE-ACCES
        DISPLAY MESSAGE-ACCES

        COMPUTE MANQUANT = 18 - AGE

        DISPLAY "Il vous manque " WITH NO ADVANCING
        DISPLAY MANQUANT WITH NO ADVANCING
        DISPLAY " an(s)."
    END-IF

    DISPLAY "Fin du programme."
    STOP RUN.