           *> AtCoder My Practice
           *> author: Leonardone @ NEETSDKASU
           *>
           IDENTIFICATION DIVISION.
           PROGRAM-ID. Answer.
           ENVIRONMENT DIVISION.
           CONFIGURATION SECTION.
           REPOSITORY.
                  FUNCTION ALL INTRINSIC.
           DATA DIVISION.
           WORKING-STORAGE SECTION.
                  01 Input-Values.
                         05 a      BINARY-SHORT.
                         05 b      BINARY-SHORT.
                  01 Calc-Values.
                         05 disp   PIC X(5).
           PROCEDURE DIVISION.
           AnswerMain SECTION.
           000-Start.
           
                  ACCEPT Input-Values.
                  
                  MOVE MOD(a,2) TO a.
                  MOVE MOD(b,2) TO b.
                  
                  MOVE "Odd" TO disp.
                  IF a = 0 OR b = 0 THEN
                         MOVE "Even" TO disp
                  END-IF.
     
                  DISPLAY TRIM(disp).
           END PROGRAM Answer.