Задача Pascal

[Cruzel]

Здравствуйте. Нужно решить задачу



Сколько не пытался, не могу =(

[Cruzel]

Буду весьма благодарен за ответы

[Plague]

1-й вариант:

var f:real;
    i,n:integer;
begin
  readln(n);
  f:=0;
  for i:=1 to n do f:=1/2*sqrt(1/2+f);  
  writeln(f);
end.

2-й вариант:

function f(n:integer):real;
begin
  if n=0 then f:=0
  else f:=1/2*sqrt(1/2+f(n-1));
end;
var n:integer;
begin
  readln(n);
  writeln(f());
end.