Pascal: Вычисление корна с помощью рекурсии.

[MaGWaY_minsk]

Помогите пожалуйста вычислить:

[Stilet]

А наработочки показать?
В принципе должно быть чет типа такого (пишу навскидку)

const n=4;
 function f(a:integer):real;
 begin 
  if a<=n then  result:=sqrt(a+f(a+1));
 end;

begin
readln(f(1));
end.

[MaGWaY_minsk]

О! Пасиб! Буду развивать мыслю!