Вычислить sqrt(1.1+sqrt(1.2+...+sqrt(10)

[taka]

Привет всем, помогите вычислить на языке программирования Delphi:
sqrt(1.1+sqrt(1.2+...+sqrt(10))

[Zer0]

a:=10;
s:=0;
while a>1 do begin
s:=sqrt(a+s);
a:=a-0.1;
end;
writeln ('s = ',s:0:2);

[zmey31313]

Пример не понятен, что вместо троеточия, если прогресия какая то, то на сколько во сколько раз возрастает???