Помочь решить задачу

[nikitasa]

S=1-x+x^2-x^3+x^4-…E
Рассчитать сумму с заданной точностью. Язык Pascal ABC. Должен использоваться цикл while.

[digitalis]

Этот ряд сходится только при x < 1 .

[newerow1989]

const e = 0.0001;
var x, x0, s: real;
    znak: -1..1;
begin
   Write('x = '); Readln(x);
   s:=1;
   x0:=s;
   i:=1;
   znak:=1;
   while Abs(x0)>e do
   begin
      znak:=-znak;
      x0:=x0*x;
      s:=s+x0;
   end;
   Writeln('s = ', s:8:8);
   Readln;
end.