IDENTIFICATION DIVISION.
       PROGRAM-ID. EXO-IF-20.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WS-NOMBRE            PIC 99 VALUE 00.

       PROCEDURE DIVISION.
           DISPLAY "Entrez un nombre (00 a 99) : "
           ACCEPT WS-NOMBRE

           IF WS-NOMBRE >= 50
               DISPLAY "Nombre grand (>= 50)."
           ELSE
               DISPLAY "Nombre petit (< 50)."
           END-IF

           STOP RUN.