Cobol Program to Multiply Two Numbers

IDENTIFICATION DIVISION.
       PROGRAM-ID. MUL.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           77 X PIC 9(3).
           77 Y PIC 9(3).
           77 Z PIC 9(3).
       PROCEDURE DIVISION.
       PARA.
           DISPLAY "ENTER THE VALUE OF X: ".
           ACCEPT X.
           DISPLAY "ENTER THE VALUE OF Y: ".
           ACCEPT Y.
           MULTIPLY X BY Y GIVING Z.
           DISPLAY "MULTIPLICATION  IS: ", Z.
           STOP RUN.

Output:

ENTER THE VALUE OF X: 10
ENTER THE VALUE OF Y: 20
MULTIPLICATION IS: 30