Помогите с паскалем.

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