Нужна задачка, помогие решить Опции

[Till]

Помогите мученику.
Вот эта задача:

[Best]

Вот твоя задача но работать не будет потому что все числа из под корня больше е(епселента 0.0001) поэтому она зацикливается
uses crt;
Var i,j,y,c:integer;
a,k,s:real;
Begin
k:=1;
a:=sqrt((k*k*k)+15);
s:=a;
while (abs(a)>0.0001) do begin
a:=sqrt((k*k*k)+15);
s:=s+a;
k:=k+1;
end;
write('symma= ',s);
end.