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

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

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

var n: integer;
function Fibbonschi(n: integer): integer;
begin
  if (n = 0) then
    result:=0
  else if (n = 1) OR (n = 2) then
    result:=1
  else
    result:=Fibbonschi(n-1)+Fibbonschi(n-2)
end;

begin
  writeln('Vvedite n');
  readln(n);
  writeln(Fibbonschi(n));
  readln();
end.