Pascal

[KiLLAS]

помогите решить задачу:
считать, что в начальный момент имеется одна клетка, Организовать цикл с шагом изменения управляющей переменной цикла равным 3, при каждом прохождении цикла количество клеток увеличивается в два раза.

в этом задании на циклы я все составил, а вот ε не знаю как в программе вывести. Нужно учесть сумму членов бесконечного ряда с точностью до члена ряда, меньшего ε=0,001 при заданных значениях Х.

program qq;
const e=0.001;
var y,s,d,r,x,a,p,z,xk,h:real;
q,k:integer;
begin
writeln('Enter x0,xk and h');
readln (x,xk,h);
q:=trunc((xk-x)/h+1);
writeln('количество повторов операции =',q);
readln;
y:=0;
a:=0;
r:=-1;
for k:=1 to q do
begin
r:=-1*r;
a:=a+1;
x:=a*x;
y:=y+sqr(pi)/3-4*r*cos(x)/sqr(a);
writeln('x = ', x, ' y = ',y);
x:=x+h;
end;
writeln(' y = ',y:4:3);
end.