Вычислить сумму ряда - Turbo Pascal (29852)

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

-Значение Е равно 0.001 -Массивы при решении использовать нельзя (это меня и заступорило) Даны числовой ряд и число Е. Найти сумму тех членов ряда, модуль которых больше или равен заданному Е. Общий член ряда имеет вид a_n=1/((3*n-2)*(3*n-1)), где n=1, 2, 3, 4, ... Заранее огромное спасибушки)

Решение задачи: «Вычислить сумму ряда»

textual
                            Листинг программы 
                        
 
                        
                          
                    
const e=0.001;
 
var
  sum,m: real;
  n:integer;
 
begin
  n:=0;sum:=0;m:=0;
  repeat
    inc(n);
    sum:=sum+m;
    m:=1/((3*n-2)*(3*n-1));
  until m<e;
writeln('Сумма ',n-1, ' членов = ',sum);
end.