      IDENTIFICATION DIVISION.
      PROGRAM-ID. 086A.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 INP PIC X(100).
      01 A PIC 9(5).
      01 B PIC 9(5).
      01 SEKI PIC 9(10).
      01 SHO PIC 9(10).
      01 AMA PIC 9(1).

      PROCEDURE DIVISION.
      ACCEPT INP.
      UNSTRING INP DELIMITED BY " "
      INTO A B.
      COMPUTE SEKI = A * B.
      DIVIDE SEKI BY 2 GIVING SHO REMAINDER AMA.
      IF AMA = 1
         DISPLAY "Odd"
      ELSE
         DISPLAY "Even"
      END-IF.
      STOP RUN.