IDENTIFICATION DIVISION.                                        
 PROGRAM-ID. MULPGM.                                             
 ENVIRONMENT DIVISION.                                           
 DATA DIVISION.                                                  
 WORKING-STORAGE SECTION.                                        
 77 NUM1        PIC 9(3) VALUE ZEROS.                            
 77 NUM2        PIC 9(3) VALUE ZEROS.                            
 77 NUM3        PIC 9(3) VALUE ZEROS.                            
 77 RESU        PIC 9(4) VALUE ZEROS.                            
 PROCEDURE DIVISION.                                             
 MAIN-PARA.                                                      
        DISPLAY 'ENTER THE NUMBER ONE VALUE'.                    
        ACCEPT NUM1.                                             
        DISPLAY 'ENTER THE NUMBER TWO VALUE'.                    
        ACCEPT NUM2.                                             
        DISPLAY 'ENTER THE NUMBER THREE VALUE'.                  
        ACCEPT NUM3.                                             
        COMPUTE RESU = NUM1 * NUM2 * NUM3.                       
        DISPLAY 'THE MULTIPLICATION OF 3 NOS:' RESU.             
        STOP RUN.