COBOL program to check whether the number is ODD or EVEN

IDENTIFICATION DIVISION.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
     02 A PIC 9(2).
PROCEDURE DIVISION.
P1.
     DISPLAY "ENTER ONE NUMBER".
     ACCEPT A.
     DIVIDE A BY 2 GIVING R REMAINDER Q.

     IF Q IS NOT EQUAL TO 0

     DISPLAY "ODD"
     ELSE
     DISPLAY "EVEN".
     STOP RUN.



FOR MORE DETAILS CONTACT : https://www.facebook.com/anon.venus