задание 5 Урок 21 ( вариант вывода с циклом)

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

задание 5 Урок 21 ( вариант вывода с циклом)

var
  N, i, f : integer;

function Fibonacci(num : integer) : integer;
begin
  if (num = 0) or (num = 1) then
    Fibonacci := 1
  else
    Fibonacci := Fibonacci(num - 1) + Fibonacci(num - 2);
end;

begin
  write('N = ');
  readln(N);

  writeln(N, ' chisla Fibonacci');
  for i := 0 to N - 1 do
    begin
      f := Fibonacci(i);
      write(f,', ');
    end;
  readln;
end.