создать массив А(15).Найти произведение элементов массива,стоящих на четных

//Pascal
//Числа случайные в спектре [-10;10]

var
  A: array [1..15] of integer;
  i: byte;
  mult: longint;
begin
  mult := 1;
  randomize; //В PascalABC.NET можно убрать
  for i := 1 to 15 do
  begin
    A[i] := random(21)-10;
    if i mod 2 = 0 then mult := mult * A[i];
    write(A[i], ' ');
  end;
  writeln;
  writeln('Творение частей на четных местах = ', mult);
  readln;
end.