Вычислить сумму членов бесконечного ряда с заданной степенью точности Е>0 и заданного значения х. Знак суммы вверху бесконечность,внизу n=0 далее дробь х в степени 2n+1(числитель)/(2n+1)!(знаменатель)=х+х в 3 степени/3!+х в 5 степени/5!+х в 7 степени/7!+…..- Pascal(Паскаль)

{$N+}
uses crt;
var x,e,s,si,p:double;
    i,k:integer;
begin
clrscr;
write('x=');readln(x);
writeln('Первый способ - с заданной точностью');
e:=0.000000001;
i:=0;
p:=x;
si:=x;s:=0;
while abs(s-si)>=e do
    begin
      s:=si;
      inc(i);
      p:=p*x*x/(2*i*(2*i+1));
      si:=si+p;
    end;
writeln('ch(x)=',s:0:10);
writeln;
writeln('Второй способ - по формуле shx=(e^x-e^-x)/2');
s:=(exp(x)-exp(-x))/2;
writeln('sh(x)=',s:0:10);
readln
end.