Пожалуйста посчитайте написать программу по информатике.Напишите программу которая выдает произведения только четных целых чисел.

const n= 10;
var i,m: integer;
    aa:array[1..n] of integer;
begin  m:= 1;
  for i:= 1 to n do
  begin   
aa[i]:= random(100); 
   if (aa[i] mod 2 = 0) then    m:= aa[i] * m;
  end; 
 writeln(m);
end.