Вычислить сумму ряда с заданной степенью точности

const
  a=0.001;
 
var
  n : integer;
  sum, t : real;
 
begin
sum:=0.5;
t:=1;
n:=1;
while abs(t/(n))>a do begin
  t:=-t/3;
  sum:=sum+t/(n+1);
  n:=n+1;
end;
writeln('CyMMa: ', sum:0:3);
readln;
end.

const
  a=0.001;  { создаем константу а}
 
var
  n : integer;
  sum, t : real;{вещественные}
 {объявляем переменные}
begin
sum:=0.5;{для простоты подсчета вычислим значение первого члена этого ряда в уме - это косинус нуля делить на два, то есть 0.5}
t:=1;
n:=1;
while abs(t/(n))>a do begin {пока все члены больше константы повторяем}
  t:=-t/3;                  {рассмотрим чем отличается iый член от i+1 cosPn если н - четное = 1 если нечетное = -1 Тогда a[i]=(-(+)1/(3^i))/(i+1)a a[i+1]= (+(-)1/(3^(i+1)))/(i+2)
то есть можно завести переменную, которая будет накапливать 1/3 и отвечать за знак и добавлять постоянно к сумме ее же деленную на n+1} так и делаем
  sum:=sum+t/(n+1);
  n:=n+1;
end;
writeln('CyMMa: ', sum:0:3); {пишем сумму}
readln; {ждем нажатия клавиши и выходим.}
end.