вот, извините за наглость, но помощь уж сильно нужна⁠⁠

[PASCAL]program qwerty;
var
x, s, sn, eps:real;
n:integer;
begin
writeln('вычисление приближенного значения функции ch(x)');
write('введите значение x=');
readln(x);
writeln('введите погрешность вычислений');
readln(eps);
n:=0; s:=0; sn:=1;
repeat
s:=s+sn;
n:=2*(n+1);
sn:=sn*power(x, 2*n)/(2*n);
until exp(x)