Заполнить массив из 13 целых элементов случайными числами из диапазона от 5 до 15. Обеспечить вывод исходного массива на экран. Подсчитать произведение четных элементов массива. побыстрее ,пожалуйста)))

Const
  n=13;
var
  a:array[1..n] of integer;
  i:integer;
  p:longint;
begin
  Randomize;
  Writeln(Элементы массива);
  p:=1;
  for i:=1 to n do
  begin
    a[i]:=Random(11)+5;
    Write(a[i]:3);
    if (i mod 2)=0 then p:=p*a[i]
  end;
  Writeln;
  Writeln(Произведение четных элементов равно ,p)
end.

Тестовое решение:
Элементы массива
  9 14  5 10  6 15 14 12 11  8  8 11 13
Произведение четных элементов равно 2217600