Помогиете, пожалуйста. Мне нужна срочная помощь...

[Бугра]

Составить программу, которая, используя рекурсивную функцию или процедуру,
находит значение данной функции для любых целых неотрицательных аргументов:
F(n,m) = (n/2), если n-четно,
m, если n=1,
F((n+1)/2), m+1) в остальных случаях.

:

[alexcoder]

Контакты ниже, обращайтесь.

[newerow1989]

function F(n,m:integer):real;
begin
   If n=1 then
      Result:=m else
   If n mod 2=0 then
      Result:=n/2 else
      Result:=F((n+1) div 2,m+1);
end;

begin
   Writeln(F(1,2));
   Readln;
end.