Задача на Паскале

[stscolt]

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

[Somebody]

Фибоначчи рекурсией - это что-то нехорошее.

uses crt;
var q:integer;
function fib(n:integer):integer;
begin
inc(q);
if n in [0,1] then fib:=1
              else fib:=fib(n-1)+fib(n-2);
end;
var n,i:integer;
begin
clrscr;
for i:=1 to 5 do begin
    write('n[',i,']='); readln(n);
    q:=0;
    writeln(fib(n),' ',q);
    end;
readln;
end.

А вообще числа Фибоначчи находят так:

round(exp((n+1)*ln((1+sqrt(5))/2))/sqrt(5))