Рекурсии(паскаль)

[Таня.Ку]

описать рекурсивную функцию FibRec(N) целого типа,вычисляющую N-ечисло фибоначчи F(N) по формуле: F(1)=F(2)=1, F(k)=F(k-2)+F(k-1),k=3,4... . С помощью этой функции найти пять чисел Фибоначчи с указанными номерами и вывесчти эти числа вместе с количеством рекурсивных вызовов функции FibRec,потребовавшихся для их нахождения.(в задаче использовать процедуры).

[Alex_FF]

var
  Res: Longint;
  Q: Integer;

procedure Fibo(N: Longint);
var
  F: Integer;
begin
  Inc(Q);
  if N <= 1 then Res := N
  else
  begin
    Fibo(N - 1);
    F := Res;
    Fibo(N - 2);
    Res := Res + F;
  end;
end;

const
  N = 5;
var
  a: Array[1..N] of Longint;
  I: Integer;
begin
  for I := 1 to N do
    Read(a[I]);
  for I := 1 to N do
  begin
    Q := 0;
    Fibo(a[I]);
    WriteLn('Полученное число: ', Res, ' Кол-во вызовов: ', Q);
  end;
  ReadLn;
  ReadLn;
end.