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

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

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

var N :integer;

function inputF(N :integer) :integer;
begin
  if N <= 2 then
    inputF := 1
  else
    inputF := inputF(N - 1) + inputF(N - 2);
end;

begin
  write(inputF(9));
end.