Решить в pascal: найти произведение, сомножители которого представлены каждым третьим членом: x1, x4, x7, и т. д. - заданного массива x1, x2, xn.

Var a: array [1..200] of integer;
i, j, q, a1: integer;
begin
Writeln('Kakoi dlini massiv?');
Readln(q);
for i:=1 to q doReadln(a[i]);
a1:=a[1];
j:=1;
while j<=q do
beginj:=j+3;
a1:=a1*a[j];
end;
Writeln(a1);
end.