uses crt;
var i,n,k,m:longint; a:array[0..1000000]of longint;
Procedure kt;
var i,ktt:longint;
begin
ktt:=0;
for i:=1 to n do if(a[i]<>-5)and(a[i] mod 2=m)
and(((ktt=0)and(a[i]>=a[k]))or((ktt=1)and(a[i]<=a[k]))) then
begin k:=i; ktt:=1; end;
end;
begin
clrscr;
write('N=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
m:=0; k:=0;
for i:=1 to n do
begin
kt;
if (a[k]<>-5)and(k<>0) then begin write(a[k],' '); a[k]:=-5; end;
end; writeln;
m:=1; k:=0; a[k]:=0;
for i:=1 to n do
begin
kt;
if (a[k]<>-5)and(k<>0) then begin write(a[k],' '); a[k]:=-5; end;
end;
readln
end.