while(paskal)

[Артл]

а так ведь не должно быть?

[Mad_Cat]

 var k,n,b:integer; var s,a,e:real;
 begin
 readln(e);
 k:=1;
 n:=1;
 b:=2;
 a:=k/b;
 s:=0;
while abs(a)>=e do
begin
s:=s+a;
n:=n+1;
k:=k*-1;
b:=b*2*n;
a:=k/b;
end;
writeln(s);
end.

вот результат

е=0.4
s=0.5

[Артл]

спасибо за помощь