Написать прогу, которая находит в массиве из 100 элементов чётные элементы и считает их кол-во.

var

a:array[1..100] of integer;

x,i:integer;

begin

x:=0;

for I:=1 to 100 do

begin

read(a[i]);

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

end;

writeln(x)

end.