Дан целочисленный одномерный массив, состоящий из n элементов. Найти произведение четных элементов, кратных 4.

const n=10;var a:array[1..n] of integer;i,p:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(50); write(a[i]:4); end;writeln;p:=1;for i:=1 to n do if a[i] mod 4 = 0 then p:=p*a[i];writeln('p = ',p);end.Пример:  33  25  25  36   5  17  40  44  17   2p = 63360