IDENTIFICATION DIVISION.
        PROGRAM-ID. EVALUATE1.

       DATA DIVISION.
        WORKING-STORAGE SECTION.
         77 MARKS PIC 9(3).
            88 FIRST1  VALUE 60 THRU 100.
            88 SECOND1 VALUE 50 THRU 59.
            88 PASS1  VALUE 40 THRU 49.

       PROCEDURE DIVISION.             
        PARA-1.
           DISPLAY "ENTER PECENTAGE OF MARKS :-> " WITH NO ADVANCING.
           ACCEPT MARKS. 
           EVALUATE TRUE
               WHEN FIRST1
                    DISPLAY "FIRST CLASS"
               WHEN SECOND1
                    DISPLAY "SECOND CLASS"
               WHEN PASS1
                    DISPLAY "PASS CLASS"
               WHEN OTHER
                    DISPLAY "FAIL"
           END-EVALUATE.
           STOP-RUN.

#--------------------------------------------------------------------------------#

                OUTPUT

#--------------------------------------------------------------------------------#

    ENTER PERCENTAGE OF MARKS :-> 65
    FIRST CLASS