e-точность должна быть любой, реально же, если ввести е<1 прога зависает .
Код
Program L;
var b,s,e,x: real;
k:integer;
begin
writeln('input x<>0, e>0');
readln(x,e);
k:=0;
s:=0;
repeat
k:=k+1;
b:=(-(sqr(x/2)+sqr(k+1)));
s:=s+b;
until abs(b)<e;
writeln('s=',s);
readln;
end.
var b,s,e,x: real;
k:integer;
begin
writeln('input x<>0, e>0');
readln(x,e);
k:=0;
s:=0;
repeat
k:=k+1;
b:=(-(sqr(x/2)+sqr(k+1)));
s:=s+b;
until abs(b)<e;
writeln('s=',s);
readln;
end.