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