identification division.
program id. add.
environment division.
data division.
working storage section.
77 a pic 9(2)value '9'.
77 b pic 9(2) value '9'.
77 c pic 9(3).
procedure division.
para1.
compute c = a + b.
display "the sum is" c
stop run.
aWRlbnRpZmljYXRpb24gZGl2aXNpb24uCnByb2dyYW0gaWQuIGFkZC4KZW52aXJvbm1lbnQgZGl2aXNpb24uCmRhdGEgZGl2aXNpb24uCndvcmtpbmcgc3RvcmFnZSBzZWN0aW9uLgo3NyBhIHBpYyA5KDIpdmFsdWUgJzknLgo3NyBiIHBpYyA5KDIpIHZhbHVlICc5Jy4KNzcgYyBwaWMgOSgzKS4KcHJvY2VkdXJlIGRpdmlzaW9uLgpwYXJhMS4KICAgICAgICBjb21wdXRlIGMgPSBhICsgYi4KICAgICAgICBkaXNwbGF5ICJ0aGUgc3VtIGlzIiBjICAKc3RvcCBydW4u