создать массив А(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.