Задан одномерный массив целых чисел. Найти произведение тех ее элементов, которые делятся на 4 без остатка (алгоритм и Pascal-программа)

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 учитываться не будет.