Вычислить сумму ряда

var x,s,si:real;
    i,n:integer;
begin
  write('x = ');readln(x);
  write('n = ');readln(n);
  s:=0;si:=x;
  for i:=2 to n do
    begin
      s:=s+si;
      si:=-si*x*x/(2*i-2)/(2*i-1)
    end;
  writeln('s = ',s:0:5);
  readln
end.

var x,s,si:real;
    i,n:integer;
begin
  write('x = ');readln(x);
  write('n = ');readln(n);
  s:=x;          //задаем значение суммы s равному 1-му слагаемому
  si:=x;         //i-е слагаемое, также задаем значение x
  for i:=2 to n do  //так как 1-е слагаемое уже определили, цикл начинаем с 2
    begin
      si:=-si*x*x/(2*i-2)/(2*i-1);  //на каждом шаге ищем i-е слагаемое умножая предыдущее значение si
      s:=s+si    //на каждом новом шаге прибавляем к значению суммы следующее слагаемое
    end;
  writeln('s = ',s:0:6);
  readln
end.