Помогите с паскалем.
Ввести одномерный массив 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.