9класс. массивы. дан массив натуральных чисел. задайте значения элементов массива используя функцию randomize. найдите произведение всех чётных элементов данного массива. нужна именно программа.

Const n=10;
var a : array[1..n] of integer;
    p,i : integer;
begin
Randomize;
 writeln('Сгенерированный массив:');
for i:=1 to n do
 begin
  a[i]:=random(21)-1;
  write(a[i],' ');
end;
writeln;
 p:=1;
for i:=1 to n do
 if a[i] mod 2 =0 then p:=p*a[i];
writeln('Произведение четных элементов = ',p);
end.