ввести одномерный массив a из 12 элементов. определить в нём произведение чётных элементов.

Program al;6
const n=12;
var a : array[1..n] of integer;
p,i:integer;
begin   
writeln('vvedite massiv='); 
  for i := 1 to n do    readln (a[i]); 
   p:=1;    for i := 1 to n do 
  if a[i] mod 2=0
then
p:=p*a[i]; 
   writeln('proizwedenie ciotnih elementov=',p); 
  readln;   
end.