Вычислить итерационную формулу в Паскаль (Исправить алгоритм)

[mrX91]

Вычеслить:

Говорят ошибка в формуле при решении задачи:

var 
n,i: integer; 
k: real;
begin
repeat
readln(n);
until n>0;
res:=sqrt(3*n);
for i:=n downto 2 do begin
res:=sqrt(res+3*(n-1));
end;
writeln(res);
readln;
end.

Помогите пожалуйста!)



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

var
  n,i : integer;
  res : real;
begin
  repeat
    readln(n);
  until n>0;
  res:=sqrt(3*n);
  for i:=n downto 2 do
    res := sqrt(res+3*(i-1));
  writeln(res:5:9);
  readln;
end.

[mrX91]

Спасибо большое!