Var a:array[1..10]of integer;
i,k,s:integer;
begin
s:=0;
k:=0;
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do 
if a[i] mod 2 = 0 then
k:=k+1;
writeln('kol-vo=',k);
end.