000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. ELM0200. 000300 AUTHOR. DANIELE GIACOMINI. 000400 DATE-WRITTEN. 1985-02-14. 000500* 000600 ENVIRONMENT DIVISION. 000700* 000800 DATA DIVISION. 000900* 001000 WORKING-STORAGE SECTION. 001100 01 A PIC 9(7). 001200 01 B PIC 9(7). 001300 01 C PIC 9(14) VALUE ZERO. 001400* 001500 PROCEDURE DIVISION. 001600*------------------------- LIVELLO 0 ----------------- 001700 MAIN. 001800 DISPLAY "MOLTIPLICAZIONE DI DUE NUMERI". 001900 DISPLAY "INSERISCI IL PRIMO ELEMENTO". 002000 ACCEPT A. 002100 DISPLAY "INSERISCI IL SECONDO ELEMENTO". 002200 ACCEPT B. 002300 PERFORM SOMMA B TIMES. 002400 DISPLAY C. 002500* 002600 STOP RUN. 002700*------------------------- LIVELLO 1 ----------------- 002800 SOMMA. 002900 COMPUTE C = C + A. 003000*