задание 6 Урок 21

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

задание 6 Урок 21

var
  Num, i, f : integer;

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

begin
  write('num = ');
  readln(num);
  writeln(num, ' chislo');
  write('chislo Fibonacci - ',Fibonacci(num));

readln;
end.