Урок 21 Задача 5

Урок 21 Задача 5:

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

procedure fib (a, b, n: integer);
begin
  if not (n = 0) then
  begin
    write(a, '  ');
    fib (b, a+b, n-1); // передаем новые значения и счетчик, уменьшенный на 1
  end;
end;

begin
  fib(1, 1, 8); // передаем первые два числа и N-ное число (оно же счетчик)
  readln();
end.

Консоль:

1  1  2  3  5  8  13  21