задание 5 Урок 21

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

задание 5 Урок 21

program U21z5;
var
  n: integer;
procedure fibonachi(n:integer; f0:integer =0; f1:integer =1);
begin
  if(n > 0) then
  begin
    writeln(f1);
    fibonachi(n-1, f1, f0+f1);
  end;

end;

begin

  write('Vvedite chislo: ');
  readln(n);
  writeln();
  fibonachi(n);

  readln();
end.