IDENTIFICATION DIVISION.
PROGRAM-ID. EVALUATE-EXEMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  NOTE                  PIC 99      VALUE ZERO.
01  APPRECIATION          PIC X(30).

PROCEDURE DIVISION.
    DISPLAY "Entrez une note sur 20 (0-20) : ".
    ACCEPT NOTE.

    EVALUATE TRUE
        WHEN NOTE >= 16
            MOVE "Excellent !" TO APPRECIATION
        WHEN NOTE >= 14
            MOVE "Très bien" TO APPRECIATION
        WHEN NOTE >= 12
            MOVE "Bien" TO APPRECIATION
        WHEN NOTE >= 10
            MOVE "Assez bien" TO APPRECIATION
        WHEN NOTE >= 8
            MOVE "Passable" TO APPRECIATION
        WHEN OTHER
            MOVE "Insuffisant - Redoublement" TO APPRECIATION
    END-EVALUATE.

    DISPLAY "Note : " NOTE "/20".
    DISPLAY "Appreciation : " APPRECIATION.

    STOP RUN.