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

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

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

program lesson20_5;
function numF(f1, f2, n: integer): integer;
begin
    if n = 1 then
        result := f1
    else if n = 2 then
        result := f2
    else
        result := numF(f2, f2 + f1, n - 1);
end;

var
    n: integer = 10;
begin
    write(numF(0, 1, n));
    readln();
end.