Дано действительное число x. Вычислить с точностью до 10^(-6).

(IMG:http://cs11003.vkontakte.ru/u31707030/122083267/x_03b7c476.jpg)

program z758g;
uses crt;
var
a,k:integer;
S,x,y:real;
begin
clrscr;

writeln('введите действительное число x - ');
readln(x);

a:=0;
S:=0;
k:=1;

while (a<4) do
begin
y:=1/(sqrt(abs(x))+(k*k));
S:=S+y;
k:=k+1;
write(y:0:8);
writeln(' - ',a:0);
if abs(y)<0.000001 then a:=a+1 else a:=0;
end;

writeln('сумма вычислений с точностью до 10^(-6) равна',S:0:3);
readln;
end.