Найти сумму ряда - Pascal ABC (13373)

Формулировка задачи:

Для заданных с клавиатуры значений переменных x вычислить: S = x - x3/3! + x5/5! - ... + ... .

Решение задачи: «Найти сумму ряда»

Листинг программы

var x,s,t:real;
    n,i:integer;
begin
write('x=');readln(x);
write('n=');readln(n);
t:=x;
s:=t;
for i:=1 to n do
  begin
   t:=-t*x*x/(2*i*(2*i+1));
   s:=s+t;
  end;
writeln('Приближенное значение  sinx=',s:6:4);
writeln('Аналитическое значение sinx=',sin(x):6:4);
end.

Объяснение кода листинга программы

var x, s, t: real;
n, i: integer;
begin
write('x='); readln(x);
write('n='); readln(n);
t := x;
s := t;
for i := 1 to n do begin
1. t := -t x x / (2 i (2 * i + 1));
2. s := s + t; end;
writeln('Приближенное значение sinx=', s : 6 : 4);
writeln('Аналитическое значение sinx=', sin(x) : 6 : 4);
end.