Ввести одномерный массив A из 12 элементов. Определить в нем произведение четных элементов — Pascal(Паскаль)

var a:array[1..12]of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 12 do
readln(a[i]);
for i:=1 to 12 do
if (a[i] mod 2)=0 then k:=K*a[i];
writeln(k);
end.