IDENTIFICATION DIVISION.
       PROGRAM-ID.MUL.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       WORKING-STORAGE SECTION.
           77 A PIC 99.
           77 B PIC 99 VALUE 0.
           77 C PIC 99.
       PROCEDURE DIVISION.
           PARA1.
           DISPLAY "ENTER THE NO FOR MULTIPLICATION TABLE=".
           ACCEPT A.
           PERFORM UNTIL B=10
           MULTIPLY A BY B GIVING C
           DISPLAY A "*" B "=" C
           ADD 1 TO B
           END-PERFORM.
           STOP RUN.


OUTPUT 
******************
5 * 1   = 5
5 * 2   = 10
5 * 3   = 15
5 * 4   = 20
5 * 5   = 25
5 * 6   = 30
5 * 7   = 35
5 * 8   = 40
5 * 9   = 45
5 * 10  = 50