var a:array[1..100] of integer;
i,p,n:integer;
begin
writeln('введите количество элементов');  read(n);
p:=1;
randomize; {случайные числа}
for i:=1 to n do {от 1 до n элемента}
begin
a[i]:=random(100)-50; {случайные числа, можешь указать любые значения}
if a[i] mod 4=0 then{если элемент массива делится на 4 с остатком 0}
p:=p*a[i]; {умножаем текущее p на этот элемент}
end;
writeln(p); {выводим произведение}
end.

В случае,если в массиве будет число 0, оно будет делится на 4 без остатка, поэтому произведение будет 0. Если это не нужно, то строку if a[i] mod 4=0 then
замени на if (a[i]<>0) and (a[i] mod 4=0) then Тогда 0 учитываться не будет.