        IDENTIFICATION  DIVISION.
        PROGRAM-ID.      christmas.
      *
        ENVIRONMENT    DIVISION.
      *
        DATA           DIVISION.
        WORKING-STORAGE SECTION.
        77  NUM         PIC 9(2).
      *
        PROCEDURE       DIVISION.
        MAIN.
        ACCEPT  NUM     FROM CONSOLE.
        IF NUM = 25 THEN
            DISPLAY "Christmas"  UPON CONSOLE.
        IF NUM = 24 THEN
            DISPLAY  "christmas Eve" UPON CONSOLE.
        IF NUM = 23 THEN
            DISPLAY  "christmas Eve Eve" UPON CONSOLE.
        IF NUM = 22 THEN
            DISPLAY  "christmas Eve Eve Eve" UPON CONSOLE.  
        DISPLAY 
        STOP RUN.
