RosettaCodeData/Task/Even-or-odd/COBOL/even-or-odd.cob

       IF FUNCTION REM(Num, 2) = 0
           DISPLAY Num " is even."
       ELSE
           DISPLAY Num " is odd."
       END-IF