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