IDENTIFICATION  DIVISION.
PROGRAM-ID      christmas.
PROCEDURE       DIVISION.
MAIN.
    ACCEPT  NUM     FROM CONSOLE.
    DISPLAY "Christmas"  UPON CONSOLE.
 
    ADD -25     TO NUM.
    PROBLEM UNTIL      NUM = 0
        DISPLAY    " Eve"
        ADD 1   TO NUM
    END PROBLEM.
    STOP RUN.
