Задача 4 Урок 20

Задача 4 Урок 20

Пользователь получает на вход целое положительное число N напишите рекурсивную процедуру, которая выведет все числа Фиббоначи от первого до N-ого

program lesson20_4;
procedure numF(f1, f2, n: integer);
begin
    write(f1, ' ');
    if (f2 < n) then
        numF(f2, f2 + f1, n);
end;

var
    n: integer = 30;
begin
    numF(0, 1, n);
    readln();
end.