var a:array[1..100000] of longint;
   n,i,j,t:longint;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
for j:=i+1 to n do
if a[j]<a[i] then begin t:=a[i];a[i]:=a[j];a[j]:=t;end;
for i:=n downto 1 do
if a[i] mod 2=1 then begin write(a[i],' ');break;end;
for i:=n downto 1 do
if a[i] mod 2=0 then begin writeln(a[i]);break;end;
for i:=1 to n do
write(a[i],' ');
end.
/**************************************************************
	Problem: 1723
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/