IDENTIFICATION DIVISION.
PROGRAM-ID. IDEONE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 a pic x(45) value "The Cobol Math Program.".
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 z9 value zeros.
77 n PIC Z9 .
PROCEDURE DIVISION.
Display a.
Subtract c From b giving d.
Divide e by f giving g.
Display "60 Minus 35 Equals: ",d.
Display "91 Divided By 13 Equals> ",g.
ACCEPT n
PERFORM UNTIL n = 42
DISPLAY n
ACCEPT n
END-PERFORM.
STOP RUN.
CUlERU5USUZJQ0FUSU9OIERJVklTSU9OLgoJUFJPR1JBTS1JRC4gSURFT05FLgoJRU5WSVJPTk1FTlQgRElWSVNJT04uCglEQVRBIERJVklTSU9OLgoJV09SS0lORy1TVE9SQUdFIFNFQ1RJT04uCgkwMSBhIHBpYyB4KDQ1KSB2YWx1ZSAiVGhlIENvYm9sIE1hdGggUHJvZ3JhbS4iLgoJNzcgYiBwaWMgOTkgdmFsdWUgNjAuCgk3NyBjIHBpYyA5OSB2YWx1ZSAzNS4KCTc3IGQgcGljIHp6OSB2YWx1ZSB6ZXJvcy4KCTc3IGUgcGljIDk5IHZhbHVlIDkxLgoJNzcgZiBwaWMgOTkgdmFsdWUgMTMuCgk3NyBnIHBpYyB6OSB2YWx1ZSB6ZXJvcy4KCTc3IG4gUElDIFo5IC4KCVBST0NFRFVSRSBESVZJU0lPTi4KCURpc3BsYXkgYS4KCVN1YnRyYWN0IGMgRnJvbSBiIGdpdmluZyBkLgoJRGl2aWRlIGUgYnkgZiBnaXZpbmcgZy4KCURpc3BsYXkgIjYwIE1pbnVzIDM1IEVxdWFsczogIixkLgoJRGlzcGxheSAiOTEgRGl2aWRlZCBCeSAxMyBFcXVhbHM+ICIsZy4KCUFDQ0VQVCBuCgkJUEVSRk9STSBVTlRJTCBuID0gNDIKCQkJRElTUExBWSBuCgkJCUFDQ0VQVCBuCgkJRU5ELVBFUkZPUk0uCgkJU1RPUCBSVU4uCg==