const n=5;

var a:array[1..n] of integer;

i,k,z: integer;

begin

for i:=1 to n do

begin

write ('Введите ',i,' элемент: ');

readln (a[i])

end;

write ('Массив: ');

for i:=1 to n do

begin

if a[i] mod 2 = 0 then k:=k+1;

write (a[i]:3,' ')

end;

writeln;

write ('z = ');

readln (z);

write ('Элементы < z и кратные 4: ');

for i:=1 to n do if (a[i]<z) and (a[i] mod 4 = 0) then write (a[i]:3,' ')

end.

// PascalABC.NET версия 3.4, сборка 1767

begin

var mas:=ReadArrInteger('Введите элементы масива-> ',5);

Writeln('количество четных элементов = ',mas.Where(t->t mod 2 = 0).Count);

var z:=ReadInteger('z = ');

Write('значения тех элементов, которые меньше заданного числа Z и кратны 4: ');

mas.Where(t->(t<z )and (t mod 4 = 0)).Print;

end.