IDENTIFICATION DIVISION.
PROGRAM-ID. 169A.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INP        PIC X(10).
01 A          PIC 9(03).
01 B          PIC 9(03).
01 OUT        PIC*>
 ZZZZ9.
PROCEDURE DIVISION.
  ACCEPT INP.
  UNSTRING INP DELIMITED BY ' '
      INTO A B.
*>
  COMPUTE OUT = A * B.
*>
  DISPLAY FUNCTION TRIM(OUT).
  STOP RUN.
