доработать программу для четырех заданных точностей

[Ecethador]

Program laba2;
var
k:integer;
x,a,c,sum:real;
const e=0.0001;
begin
writeln ('vvedite x  v diapozone ot 1 do (-1)() 0');
readln (x);
sum:=0;
k:=1;
a:=x/(1+sqrt(abs(x)+1));
while (k<=10) and (abs(a)>e) do
begin
sum:=sum+a;
inc(k);
c:=k*k*k;
a:=x/(c+k-sqrt(abs(x)+1));
end;
writeln ('sum= ',sum:10);
readln;
end.

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

[Serge_Bliznykov]

два вопроса.
1-й. что вы собственно хотите сделать? Где задание? Мы по названию темы должны догадаться?!

2-й. Немного необычно, что Вы используете остановку цикла по заданной точности - зачем ещё выход по количеству шагов (k<=10). Вы это сознательно написали, не ошиблись?