language: COBOL 85 (tinycobol-0.65.9)
date: 112 days 22 hours ago
link:
visibility: public
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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.