IDENTIFICATION DIVISION.
PROGRAM-ID. IDEONE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 a Pic x(45) value "Cobol Add/Multiply.".
77 b pic zzz9.
77 c pic zzz9.
77 n PIC Z9 .
PROCEDURE DIVISION.
Add 25 To 25 giving b.
Multiply 45 By 45 giving c.
Display "25 Plus 25 Equals: ",b.
Display "45 Times 45 Equals: ",c.
ACCEPT n
PERFORM UNTIL n = 42
DISPLAY n
ACCEPT n
END-PERFORM.
STOP RUN.
CUlERU5USUZJQ0FUSU9OIERJVklTSU9OLgoJUFJPR1JBTS1JRC4gSURFT05FLgoJRU5WSVJPTk1FTlQgRElWSVNJT04uCglEQVRBIERJVklTSU9OLgoJV09SS0lORy1TVE9SQUdFIFNFQ1RJT04uCgkwMSBhIFBpYyB4KDQ1KSB2YWx1ZSAiQ29ib2wgQWRkL011bHRpcGx5LiIuCgk3NyBiIHBpYyB6eno5LgoJNzcgYyBwaWMgenp6OS4KCTc3IG4gUElDIFo5IC4KCVBST0NFRFVSRSBESVZJU0lPTi4KCUFkZCAyNSBUbyAyNSBnaXZpbmcgYi4KCU11bHRpcGx5IDQ1IEJ5IDQ1IGdpdmluZyBjLgoJRGlzcGxheSAiMjUgUGx1cyAyNSBFcXVhbHM6ICIsYi4KCURpc3BsYXkgIjQ1IFRpbWVzIDQ1IEVxdWFsczogIixjLgoJQUNDRVBUIG4KCQlQRVJGT1JNIFVOVElMIG4gPSA0MgoJCQlESVNQTEFZIG4KCQkJQUNDRVBUIG4KCQlFTkQtUEVSRk9STS4KCQlTVE9QIFJVTi4K