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

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

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

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

begin
  write(fib(7)); // передаем номер числа
  readln();
end.