pascal. Посчитать сумму членов бесконечного ряда, кто знает проверьте пожалуйста.

Question

программа считает, но чую есть косяк в расчете переменной "а", помогите понять в чем косяк (если он есть) и исправить его.
Var 
a,s:real;
n:integer; 
begin
a:=x; 
s:=0; 
n:=1; 
While Abs(a)>=eps do 
begin 
s:=s+a; 
n:=n+1; 
a:=a*x*x/((2*n)*(2*n-1)) 
end; 
Writeln('Сумма ряда = ',s:8:4); 
Writeln('Число членов ряда = ', n:4)
End.

user_263901713 · Accepted Answer

для формулы, которая "Ch(x) = 1 + ___ "
var n: integer;
x, a1, a2, ch, zn, eps, sum: real;
begin
write ('x=');
readln (x);
eps:=0.0001;
a1:=0;
a2:=1;
ch:=1;
zn:=1;
n:=0;
sum:=0;
while abs(abs(a1)-abs(a2)) > eps do
begin
inc(n);
ch:=ch*sqr(x);
zn:=zn*(2*n)*(2*n-1);
a1:=a2;
a2:=ch/zn;
sum:=sum+a2;
end;
writeln ('summa = ', sum);
end.

Pascal. Посчитать сумму членов бесконечного ряда, кто знает проверьте пожалуйста.