IDENTIFICATION DIVISION.
PROGRAM-ID. ADDITION.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 99.
01 B PIC 99.
01 C PIC 999.
PROCEDURE DIVISION.
DISPLAY "ENTER A".
ACCEPT A.
DISPLAY "ENTER B".
ACCEPT B.
COMPUTE C=A+B.
DISPLAY "SUM=",C.
STOP RUN.