       *> 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.
