IDENTIFICATION DIVISION.
PROGRAM-ID. ACCEPT-EXEMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NOM                PIC A(20).
01 WS-AGE                PIC 99.

PROCEDURE DIVISION.
DISPLAY "Entrez votre nom :".
ACCEPT WS-NOM.
DISPLAY "Entrez votre age :".
ACCEPT WS-AGE.
  DISPLAY "Bonjour : " WS-NOM.
  DISPLAY "Vous avez " WS-AGE " ans.".
  STOP RUN.