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

CUlERU5USUZJQ0FUSU9OIERJVklTSU9OLgoJUFJPR1JBTS1JRC4gSURFT05FLgoJRU5WSVJPTk1FTlQgRElWSVNJT04uCglEQVRBIERJVklTSU9OLgoJV09SS0lORy1TVE9SQUdFIFNFQ1RJT04uCgkwMSBhIFBpYyB4KDQ2KSB2YWx1ZSAiVGhlIENvYm9sIENvbXB1dGUgQWRkL011bHRpcGx5LiIuCgk3NyBiIFBpYyB6ejkuCgk3NyBjIFBpYyB6eno5LgoJNzcgbiBQSUMgWjkgLgoJUFJPQ0VEVVJFIERJVklTSU9OLgoJY29tcHV0ZSBiID0gKDI1ICsgMjUpLgoJY29tcHV0ZSBjID0gKDQ1ICogNDUpLgoJZGlzcGxheSAiQWRkIDI1IFRvIDI1IEVxdWFsczogIixiLgoJZGlzcGxheSAiTXVsdGlwbHkgNDUgVGltZXMgNDUgRXF1YWxzOiAiLGMuCglBQ0NFUFQgbgoJCVBFUkZPUk0gVU5USUwgbiA9IDQyCgkJCURJU1BMQVkgbgoJCQlBQ0NFUFQgbgoJCUVORC1QRVJGT1JNLgoJCVNUT1AgUlVOLgo=

MTAKNDMKNQo0MgoxCg==

10
43
5
42
1