Задача 6 Урок 22

Задача 6 Урок 22

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

var n1,a1,b1,i1:integer;
function vivod(a,b,i,N:integer):integer;
begin
  if n>i then
  begin
    result:=vivod(b,a+b,i+1,n);
  end
  else
    result:=a;
end;
begin
  n1:=5;
  a1:=1;
  b1:=2;
  i1:=1;
  write(vivod(a1,b1,i1,n1));
  readln();
end.