IDENTIFICATION DIVISION.
	PROGRAM-ID. IDEONE.
	ENVIRONMENT DIVISION.
	DATA DIVISION.
	WORKING-STORAGE SECTION.
	01 a Pic x(46) value "The Cobol Compute Add And Multiply.".
	77 b Pic zz9.
	77 c Pic zzz9.
	77 n PIC Z9 .
	PROCEDURE DIVISION.
	compute b = (45 + 45).
	compute c = (45 * 45).
	Display "Add 45 Plus 45 Equals: ",b.
	Display "Multiply 45 by 45 Equals: ",c.
	ACCEPT n
		PERFORM UNTIL n = 42
			DISPLAY n
			ACCEPT n
		END-PERFORM.
		STOP RUN.
 

CUlERU5USUZJQ0FUSU9OIERJVklTSU9OLgoJUFJPR1JBTS1JRC4gSURFT05FLgoJRU5WSVJPTk1FTlQgRElWSVNJT04uCglEQVRBIERJVklTSU9OLgoJV09SS0lORy1TVE9SQUdFIFNFQ1RJT04uCgkwMSBhIFBpYyB4KDQ2KSB2YWx1ZSAiVGhlIENvYm9sIENvbXB1dGUgQWRkIEFuZCBNdWx0aXBseS4iLgoJNzcgYiBQaWMgeno5LgoJNzcgYyBQaWMgenp6OS4KCTc3IG4gUElDIFo5IC4KCVBST0NFRFVSRSBESVZJU0lPTi4KCWNvbXB1dGUgYiA9ICg0NSArIDQ1KS4KCWNvbXB1dGUgYyA9ICg0NSAqIDQ1KS4KCURpc3BsYXkgIkFkZCA0NSBQbHVzIDQ1IEVxdWFsczogIixiLgoJRGlzcGxheSAiTXVsdGlwbHkgNDUgYnkgNDUgRXF1YWxzOiAiLGMuCglBQ0NFUFQgbgoJCVBFUkZPUk0gVU5USUwgbiA9IDQyCgkJCURJU1BMQVkgbgoJCQlBQ0NFUFQgbgoJCUVORC1QRVJGT1JNLgoJCVNUT1AgUlVOLgo=

MTAKNDMKNQo0MgoxCg==

10
43
5
42
1