Вычислить среднегеометрическое значение каждых вторых элементов последней трети массива”
Код программы есть,нужно только указать, чтобы она выбирала каждый второй элемент.Помогите,пожалуйста:

Procedure Part_2(n:integer; Y:vector; var Sg:real);
var i,k:integer;
P:real;
Begin
P:=1;
k:=0;
For i:=2*n div 3 + 1 to n do
If (y[i]<>0) then
begin
P:=P*y[i];
k:=k+1;
end;
If k>0 then
If P>0 then Sg:=exp(1/k*ln(P))
else
If odd(k) then Sg:=-exp(1/k*ln(abs(P)))
else Sg:=0
else Sg:=0;
end;