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

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

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

var
  n: integer;

function fibonachi(n: integer): integer;
begin

  if(n = 0) then
    result := 0
  else if(n = 1) then
    result := 1
  else
    result := fibonachi(n - 1) + fibonachi(n - 2);
end;

begin

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

  writeln();

  writeln(fibonachi(n));

  readln();

end.