Надо! составить программу для вычисления суммы ряда с точностью до ε = 10^-4. s = 1 + 3x + 5x^2 + 7x^3 + полученный результат сравнить с точным s = (1 + x)/(1-x)^2.

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 abs(s1 - s2) > e do begin
    s1 := s1 + (1 + 2*step)/power(x, step);
  end;
 
  writeln(s1);
  writeln(s2);
  writeln(s1 - s2);
end.

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