*PROGRAM TO DETERMINE WHETHER A GIVEN NUMBE IS EVEN OR ODD. IDENTIFICATION DIVISION. PROGRAM-ID. EVOD. AUTHOR. KRISHNA KUMAR KHATRI. DATE-WRITTEN. 23RD MAY, 2003. ENVIRONMENT DIVISION. CONFIGURATION SECTION. DATA DIVISION. WORKING-STORAGE SECTION. 01 N PIC 9999 VALUE ZERO USAGE COMPUTATIONAL. 01 REMAIND PIC 9 VALUE ZERO USAGE COMPUTATIONAL. PROCEDURE DIVISION. MAIN-LOGIC. DISPLAY "PROGRAM TO DETERMINE EVEN OR ODD NUMBER". DISPLAY " ". DISPLAY "ENTER THE NUMBER". ACCEPT N. DISPLAY " ". DIVIDE 2 INTO N GIVING N REMAINDER REMAIND. IF REMAIND IS EQUAL TO ZERO DISPLAY "THE NUMBER IS EVEN" ELSE DISPLAY "THE NUMBER IS ODD". STOP RUN.