IDENTIFICATION DIVISION.
       PROGRAM-ID. DEMANDE-NOM.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NOM PIC X(20).
       PROCEDURE DIVISION.
           DISPLAY "Quel est votre nom ?".
           ACCEPT NOM.
           DISPLAY NOM.
           STOP RUN.