Помогите, пожалуйста. Безотлагательно надо! Составить программу для вычисления суммы ряда с

Begin
  var e: double;
  var s1: double;
  var s2: double;
  var x: double;
  var step: integer;
 
  readln(x);
 
  e := 0.0001;
  s1 := 1;
  step := 3;
 
  s2 := (1 + x) / (1 - x) / (1 - x);
 
  while абс(s1 - s2) gt; e do begin
    s1 := s1 + (1 + 2*step)/power(x, step);
  end;
 
  writeln(s1);
  writeln(s2);
  writeln(s1 - s2);
end.

Расставь верно скобки в условии, я исправлю решение.