IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 NOM-PERSONNE PIC X(20) VALUE 'Alice'. 
01 AGE-PERSONNE PIC 9(3) VALUE 25.       
01 RESULTAT     PIC 9(3).               

PROCEDURE DIVISION.
    ADD 1 TO AGE-PERSONNE GIVING RESULTAT.
    DISPLAY 'Bonjour, ' NOM-PERSONNE ' ! Tu auras ' RESULTAT ' ans bientôt.'.
    STOP RUN.