Одномерный массив (среднегеометрическая сумма каждого третьего элемента промежутка массива)

[Monry]

Помогите пожалуйста не могу написать условие ,чтобы он находил каждый третий элемент в промежутке второй четверти массива
(в целом массиве каждый третий элемент находится так if i mod 3=0 )

p:=1;
k:=0;
k1:=trunc(n/4);
k2:=trunc(n/2);
for i:=(k1+1) to k2 do
begin
k:=k+1;
p:=p*x[i]
end;
If k>0 then
If P>0 then Sg:=exp(1/k*ln(P))
else
If p<0 then Sg:=-exp(1/k*ln(abs(P)))
else Sg:=0;
Write('Среднегеометрическое значение = ',Sg);
writeln;

[BDA]

Чтобы проверить на каждый третий элемент отрезка:
if (i-k1) mod 3=0 then ...

[Monry]

Спасибо большое)