Ответ:

program z;

var n,i,k:integer;

m:array[1..32767] of integer;

begin

read(n);

k:=0;

for i:=1 to n do

begin

read(m[i]);

if m[i] mod 4 = 0 then k:=k + 1

end;

write(k)

end.

Объяснение:

вводим количество (1 <= n <= 32767) элементов массива (read(n);)

используя цикл со счётчиком (for i:=1 to n do):

вводим элементы массива с клавиатуры (read(m[i]);)

используя неполный условный оператор (if m[i] mod 4 = 0 then k:=k + 1) проверяем эти элементы на кратность 4

(если условие (m[i] mod 4 = 0) истинно, то увеличиваем (k:=k + 1) переменную k на 1)

выводим результат (write(k))

mod - остаток от целочисленного деления (если результат mod равен 0, то число делится без остатка, т.е. является кратным)