IDENTIFICATION DIVISION.
PROGRAM-ID. COBOL-PRO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A-NUM1 PIC 9(3) VALUE 2.
01 A-NUM2 PIC 9(3) VALUE 30.
01 A-NUM3 PIC 9(3) VALUE 8.
01 A-NUM4 PIC 9(3) VALUE 12.
01 A-NUM5 PIC 9(3) VALUE 4.
01 A-NUM6 PIC 9(3).
PROCEDURE DIVISION.
COMPUTE A-NUM6 = (A-NUM1 * A-NUM2) - (A-NUM4 / A-NUM5) + A-NUM3.
DISPLAY "A-NUM1 : " A-NUM1
DISPLAY "A-NUM2 : " A-NUM2
DISPLAY "A-NUM3 : " A-NUM3
DISPLAY "A-NUM4 : " A-NUM4
DISPLAY "A-NUM5 : " A-NUM5
DISPLAY "A-NUM6 : " A-NUM6
STOP RUN.
# run:
#
# A-NUM1 : 002
# A-NUM2 : 030
# A-NUM3 : 008
# A-NUM4 : 012
# A-NUM5 : 004
# A-NUM6 : 065