Задание 6 Урок 22

Задание 6 Урок 22

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

var
  N :integer ;

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

begin
    writeln('Vvedite chislo');
    readln(N);
    writeln('chislo Fibonacchi ravno: ');
    writeln(fib(N));
    readln();
end.   

консоль:

Vvedite chislo
10
chislo Fibonacchi ravno: 
34