Статистика

program aaa; 
var 
i,n,k1,k0:integer; 
m:array[1..105] of integer; 
begin 
assign(input,'input.txt'); 
reset(input); 
assign(output,'output.txt'); 
rewrite(output); 
read(n); 
for i:=1 to n do read(m[i]); 
for i:=1 to n do 
if (m[i] mod 2<>0) then 
begin 
write(m[i],' '); 
k1:=k1+1; 
end; 
writeln; 
for i:=1 to n do 
if (m[i] mod 2=0) then 
begin 
write(m[i],' '); 
k0:=k0+1; 
end; 
writeln; 
if k1>k0 then write('NO') else write('YES'); 
close(input); 
close(output); 
end.

var
  k,l,m,i: integer;
begin
  assign(output,'OUTPUT.TXT');
  for m:=0 to 1 do
  begin
    reset(input,'INPUT.TXT');
    read(k);
    repeat
      read(l);
      if l and 1<>m then
      begin
        write(l:3);
        inc(i,1-m-m);
      end;  
      dec(k)
    until k=0;
    writeln
  end;
  write(PChar('YES'#0'NO')+ord(i>0)*4)
end.