IDENTIFICATION DIVISION.
PROGRAM-ID. IDEONE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 a Pic x(45) value "The Cobol Math Program Compute.".
77 b pic 99 value 60.
77 c pic 99 value 35.
77 d pic zz9 value zeros.
77 e pic 99 value 91.
77 f pic 99 value 13.
77 g pic zz9 value zeros.
77 n PIC Z9 .
PROCEDURE DIVISION.
Display a.
compute d = (b - c).
compute g = (e / f).
Display "60 Minus 35 Equals: ",d.
Display "91 Divided By 13 Equala: ",g.
ACCEPT n
PERFORM UNTIL n = 42
DISPLAY n
ACCEPT n
END-PERFORM.
STOP RUN.
CUlERU5USUZJQ0FUSU9OIERJVklTSU9OLgoJUFJPR1JBTS1JRC4gSURFT05FLgoJRU5WSVJPTk1FTlQgRElWSVNJT04uCglEQVRBIERJVklTSU9OLgoJV09SS0lORy1TVE9SQUdFIFNFQ1RJT04uCgkwMSBhIFBpYyB4KDQ1KSB2YWx1ZSAiVGhlIENvYm9sIE1hdGggUHJvZ3JhbSBDb21wdXRlLiIuCgk3NyBiIHBpYyA5OSB2YWx1ZSA2MC4KCTc3IGMgcGljIDk5IHZhbHVlIDM1LgoJNzcgZCBwaWMgeno5IHZhbHVlIHplcm9zLgoJNzcgZSBwaWMgOTkgdmFsdWUgOTEuCgk3NyBmIHBpYyA5OSB2YWx1ZSAxMy4KCTc3IGcgcGljIHp6OSB2YWx1ZSB6ZXJvcy4KCTc3IG4gUElDIFo5IC4KCVBST0NFRFVSRSBESVZJU0lPTi4KCURpc3BsYXkgYS4KCWNvbXB1dGUgZCA9IChiIC0gYykuCgljb21wdXRlIGcgPSAoZSAvIGYpLgoJRGlzcGxheSAiNjAgTWludXMgMzUgRXF1YWxzOiAiLGQuCglEaXNwbGF5ICI5MSBEaXZpZGVkIEJ5IDEzIEVxdWFsYTogIixnLgoJCUFDQ0VQVCBuCgkJUEVSRk9STSBVTlRJTCBuID0gNDIKCQkJRElTUExBWSBuCgkJCUFDQ0VQVCBuCgkJRU5ELVBFUkZPUk0uCgkJU1RPUCBSVU4uCg==