type vector=array [1..560] of integer;
var v,x,y:vector;
    m,n,t,i:integer;
begin
write('m=');readln(m);
for i:=1 to m do
   begin
      write('v[',i,']=');readln(v[i]);
   end;
for i:=1 to m do
  write(v[i]:3);
n:=0;t:=0;
for i:=1 to m do
  if v[i] mod 2=0 then
    begin
      n:=n+1;x[n]:=v[i];
    end
   else
    begin
      t:=t+1;y[t]:=v[i];
    end;
writeln;
for i:=1 to n do write(x[i]:3); writeln;
for i:=1 to t do write(y[i]:3);
readln;
end.