IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-DISPLAY-19.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-NOM PIC X(20) VALUE "MARTIN".
01  WS-AGE PIC 99    VALUE 28.

PROCEDURE DIVISION.
    DISPLAY "Bonjour !"
    DISPLAY "Nom : " WS-NOM
    DISPLAY "Age : " WS-AGE
    DISPLAY "Message : " WS-NOM " a " WS-AGE " ans."
    STOP RUN.