11

var
day:array[1..1000] of integer;
N,i,a,b:integer;
BEGIN
a:=0;
b:=0;

read(n);

for i:=1 to n do
read(day[i]);

for i:= 1 to n do begin
    if day[i] mod 2 <>0 then
    begin
      write(day[i],' ');
      a:=a+1;
    end;
end;

for i:= 1 to n do begin
 if day[i] mod 2 = 0 then
  begin
    write(day[i],' ');
    b:=b+1;
  end;
end;
 writeln();

 if b>=a then write('YES')
 else write ('NO');

END.