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

const e=0.00001;
var x,t,s:real;
    n:integer;
begin
write('x=');
readln(x);
n:=1;
t:=1;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/(2*n-1)/(2*n);
  s:=s+t*(2*n-1);
 end;
writeln('s=',s:0:5);
end.

const e=0.00001;//точность
var x,t,s:real;
    n:integer;
begin
write('x=');//вводим х
readln(x);
n:=1;//первый член ряда
t:=1;//равен 1
s:=t;//начальная сумма
while abs(t)>e do//пока модуль очередного члена больше точности 
 begin
  n:=n+1;//очередной член ряда
  t:=-t*x*x/(2*n-1)/(2*n);//меняем знак, умножаем предыдущий член на x^2, делим на 2 очередных числа(2n!=(2n-1)*(2n))
  s:=s+t*(2*n-1);//умножаем на очередное нечетное число и прибавляем к сумме
 end;
writeln('s=',s:0:5);//выводим сумму с 5 знаками после запятой
end.

const e=0.00001;
var x,t,s:real;
    n:integer;
begin
write('x=');
readln(x);
n:=0;
t:=1;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/(2*n-1)/(2*n);
  s:=s+t*(2*n+1);
 end;
writeln('s=',s:0:5);
end.

const e=0.00001;
function fact(n:integer):real;
begin
if n<2 then fact:=1
else fact:=fact(n-1)*n;
end;
function power(x:real;n:integer):real;
begin
if n=0 then power:=1
else power:=power(x,n-1)*x;
end;
var x,t,s:real;
    n,z:integer;
begin
write('x=');
readln(x);
n:=0;
t:=1;
z:=1;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  z:=-z;
  t:=z*(2*n+1)*power(x,2*n)/fact(2*n);
  s:=s+t;
 end;
writeln('s=',s:0:5);
end.