var i,ch,nech: integer;
N: array[1..10] of integer;
begin
for i:=1 to 10 do
begin
N[i]:=random(1,15);
if N[i] mod 2 = 0 then
ch:=ch+1
else
nech:=nech+1;
write(N[i],' ');
end;
writeln();
write(ch,' ');
write(nech);
end.