IDENTIFICATION DIVISION.
PROGRAM-ID. MOVE-ACCEPT-CORRIGE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  PRENOM                PIC X(15).
01  NOM                   PIC X(20).
01  AGE                   PIC 99.
01  MESSAGE-BIENVENUE     PIC X(50) VALUE "Bienvenue, ".
01  MESSAGE-AGE           PIC X(40) VALUE " vous avez    ans.".

PROCEDURE DIVISION.
    DISPLAY "Entrez votre prenom : ".
    ACCEPT PRENOM.

    DISPLAY "Entrez votre nom : ".
    ACCEPT NOM.

    DISPLAY "Entrez votre age : ".
    ACCEPT AGE.

    DISPLAY MESSAGE-BIENVENUE PRENOM " " NOM ".".
    MOVE AGE TO MESSAGE-AGE(12:2).
    DISPLAY MESSAGE-AGE.

    STOP RUN.