Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
IDENTIFICATION DIVISION.
PROGRAM-ID. EvenNumbers.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUMS.
05 NUM PIC 9(2) OCCURS 10 TIMES VALUE 1 2 3 4 5 6 7 8 9 10.
01 INDEX PIC 9(2) VALUE 1.
PROCEDURE DIVISION.
PERFORM VARYING INDEX FROM 1 BY 1 UNTIL INDEX > 10
IF NUM (INDEX) MOD 2 = 0 THEN
DISPLAY NUM (INDEX)
END-IF
END-PERFORM
STOP RUN.Coding works best on desktop or with an external keyboard.