Описать рекурсивную функцию Fib1(N) целого типа, вычисляющую N-й элемент последовательности чисел Фибоначчи.

var
  i:integer;
  rk:integer;
function Fib1(K:integer;var rk:integer):integer;
begin
  rk:=rk+1;
  if K>1 then Fib1:=Fib1(K-1,rk)+Fib1(K-2,rk) else Fib1:=K;
end;
begin
  for i:=0 to 5 do begin
  rk:=0;
    writeln('№ ',i,' значение :',Fib1(i,rk),' к-во рекурсий:',rk);
  end;  
end.

function Fib1(K:integer;var rk:integer):integer;
begin
  rk:=rk+1;
  if K>1 then Fib1:=Fib1(K-1,rk)+Fib1(K-2,rk) else Fib1:=K;
end;

var
  i:integer;
  rk:integer;
function Fib1(K:integer;var rk:integer):integer;
begin
  rk:=rk+1;
  if K>1 then Fib1:=Fib1(K-1,rk)+Fib1(K-2,rk) else Fib1:=K;
end;
begin
  for i:=0 to 5 do begin
  rk:=0;
    writeln('№ ',i,' значение :',Fib1(i,rk),' к-во рекурсий:',rk);
  end;  
end.

var  {объявление переменных}
  i:integer;  {счетчик для for}
  rk:integer;  {счетчик, количество рекурсий}
function Fib1(K:integer;var rk:integer):integer;  {объявление функции}
begin
  rk:=rk+1;  {увеличение счетчика количества рекурсий}
  if K>1 then  {проверка условия}
    Fib1:=Fib1(K-1,rk)+Fib1(K-2,rk)  {если истина, вычисление выражения, причем функция вызывает сама себя, но уже с другими параметрами}
  else 
    Fib1:=K;  {если ложно, результат функции равен [B]К[/B]}
end;
begin
  for i:=0 to 5 do begin  {объявление цикла for}
  rk:=0;  {начальное значение счетчика}
    writeln('№ ',i,' значение :',Fib1(i,rk),' к-во рекурсий:',rk);  {вывод строки}
  end;  {конец цикла for}
end.