Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
IDENTIFICATION DIVISION.
PROGRAM-ID. FibonacciProgram.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 N PIC 9(2) VALUE 10.
01 A PIC 9(5) VALUE 0.
01 B PIC 9(5) VALUE 1.
01 TEMP PIC 9(5) VALUE 0.
01 COUNTER PIC 9(2) VALUE 1.
PROCEDURE DIVISION.
DISPLAY A
PERFORM VARYING COUNTER FROM 2 BY 1 UNTIL COUNTER > N
ADD A TO B GIVING TEMP
DISPLAY B
MOVE B TO A
MOVE TEMP TO B
END-PERFORM
STOP RUN.Coding works best on desktop or with an external keyboard.