Найти произведение.

[dangalah]

Найти произведение, сомножители которого представлены каждым третьим членом: X1, X4, X7, и т. д. - заданного массива X1, X2, ..., Xn.

[newerow1989]

const n=10;
var x:array[1..n] of integer;
    i,pr:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      x[i]:=Random(21);
      Write(x[i],'  ');
   end;
   Writeln;
   pr:=1;
   For i:=1 to n do
      If i mod 3=0 then
         pr:=pr*x[i];
   Writeln(pr);
   Readln;
end.

Сойдет?