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

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.