При некоторых заданных x, N и Е, определяемых вводом, вычислите сумму N слагаемых заданного вида

var x,t,s:real;
    n,i:integer;
begin
write('x=');//вводим любое x
read(x);
write('n=');//вводим N
read(n);
t:=x;//нулевой член ряда
s:=x;//сумма при n=0
for i:=1 to n do
 begin
  t:=t*x*x/(2*i*(2*i+1));//домножаем на x^2 и делим на факториал очередного нечетного числа
  s:=s+t; //суммируем
 end;
writeln('сумма=',s:0:6);
writeln('аналитически=',(exp(x)-exp(-x))/2:0:6);
end.

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

var x,e,t,s:real;
    n,i:integer;
begin
write('x=');//вводим любое x
read(x);
write('e=');//вводим точность вычислений, малое число типа 0.000001
read(e);
write('n=');//вводим максимальное число итераций
read(n);
i:=0;
t:=x;//нулевой член ряда
s:=x;//сумма при n=0
while (abs(t)>=e)and(i<n) do//пока очередной член больше точности
                          //или не достигнуто макс число итераций
 begin
  i:=i+1;//увеличиваем номер
  t:=t*x*x/(2*i*(2*i+1));//домножаем на x^2 и делим на факториал очередного нечетного числа
  s:=s+t; //суммируем
 end;
writeln('достигнутая точность=',abs(t):0:6,' сумма=',s:0:6,' число итераций=',i);
writeln('аналитически=',(exp(x)-exp(-x))/2:0:6);
end.