Вычисление гиперболического синуса при заданных значениях аргументов - Pascal ABC

var x,e,t,s:real;
    n:integer;
begin
x:=1.75;
e:=0.001;
n:=0;
t:=1;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=t*x*x/(2*n*(2*n-1));
  s:=s+t;
 end;
writeln('Сумма=',s:0:4);
writeln('ch x= ',(exp(x)+exp(-x))/2:0:4);
end.