coodingan cobol hasil output aritmatika

       identification division.
       program-id. hitung.
       author. Putri Uswatun Hasanah.
       environment division.
       data division.
       working-storage section.
       01 a pic 9v9.
       01 b pic 9v9.
       01 d pic 9.99.
       01 e pic -9.9.
       procedure division.
       mulai.
           display (01 , 01) " nilai a: ", accept a.
           display (02 , 02) " nilai b: ", accept b.
           perform hitung.
           stop run.
       hitung.
           compute d = A + B
           display (03 , 01) " hasil penambahan = " d.
           compute e = A - B
           display (04 , 01) " hasil pengurangan = " e.