[lmikle]

по моему, надо как-то так:

Код:

s:= 0;
for i := n downto 1 do
  s := sqrt(7*n + s);