Заполнить массив из 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