Вычисление суммы ряда на турбо паскаль

[мария71]

пожалуйста помогите составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью е>0, т.е. вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше е: | ак |<e

[Mad_Cat]

var sl,s,k,e:real;
begin
readln(e);
k:=1;
s:=1/2;
sl:=cos(2*k*x)/(2*k-1)/(2*k+1);
While abs(sl)>=e do begin
s:=s-sl;
k:=k+1;
sl:=cos(2*k*x)/(2*k-1)/(2*k+1);
end;
Writeln(4*s/3.14);
readln;
end.

[мария71]

я очень сильно извиняюсь...а не могли бы вы сделать небольшое пояснение...