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

Задача 5 урок 20

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

program u20z5;
var n:integer;
procedure pro(f2,f1,n1:integer);
begin
  writeln(f2);
  if (n1>1) then
  begin
    pro(f1,f2+f1,n1-1);
  end;
end;
begin
  writeln('vvedite n');
  readln(n);
  pro(0,1,n);
  readln();
end.