Программирование циклических алгоритмов - Pascal ABC (251697)

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

Задание: Составить программу ,которая вычисляет сумму ряда с заданной точностью.Нужная точность считается полученной,если очередное слагаемое оказалось по модулю меньше,чем данное малое положительное число ɛ. (xcos π/4)/2! + (x^2 cos2 π/4)/4! + … + (x^n cosn π/4)/(2n)! X=0.15 Точность ɛ=〖10〗^(-4) Помогите что я сделала не так ?

program lab33;
var s,x,eps,sl:real; f,n:integer;
begin
x:=0.15;s:=0;n:=1;f:=1;eps:=1e-4;
writeln('|n|sl|s|');
repeat
n:=n+1;
f:=f*(2*n-1)*2*n;
s:=s+sl;
sl:=(exp(n*ln(x))*cos(n*(pi/4)))/f; 
writeln(' ',n:2,' ',sl:5:2,' ',s:5:2,'');
until(sl

		

Решение задачи: «Программирование циклических алгоритмов»

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

var x,eps,t,s:real;
    n:integer;
begin
x:=0.15;
eps:=1e-4;
n:=0; //номер члена ряда
t:=1;//текущий член ряда
s:=0; //сумма
repeat
n:=n+1;
t:=t*x*cos(pi/4)/((2*n-1)*2*n);
s:=s+t;
until t<eps;
write('S=',s:0:4,' n=',n,' eps=',t:0:6);
end.

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

Объявлены переменные: x, eps, t, s (с плавающей точкой), n (целочисленная).
Инициализированы переменные: x=0.15, eps=1e-4, n=0, t=1.
Запущен цикл while, который выполняется до тех пор, пока t меньше eps.
Внутри цикла:
- n увеличивается на 1.
- t вычисляется как xcos(pi/4)/((2n-1)2n).
- t добавляется к s.
Когда цикл завершается, выводится значение s, n и eps.