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

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-SEUIL      PIC 99 VALUE 10.
01  WS-VALEUR     PIC 99 VALUE 00.

PROCEDURE DIVISION.
    DISPLAY "Entrez un nombre (00 a 99) : "
    ACCEPT WS-VALEUR
    IF WS-VALEUR > WS-SEUIL
		DISPLAY "Plus grand que le seuil."
    END-IF
    IF WS-VALEUR = WS-SEUIL
		DISPLAY "Egal au seuil."
    END-IF
    IF WS-VALEUR < WS-SEUIL
		DISPLAY "Plus petit que le seuil."
    END-IF
    STOP RUN.