10 REM p4

20 REM Язык Quick Basic 4.0
30 REM Числа Фибоначчи - 1
40 REM Задача 83.3
50 DIM a AS INTEGER, b AS INTEGER, c AS INTEGER
60 a = 1: b = 1
70 c = a + b
80 PRINT a, b, c
90 a = b: b = c
100 IF c < 20000 THEN GOTO 70
110 END