program bai_giai;
var f,g:text;
A:array[1..1000] of integer;
n,i,j,tg:integer;
begin
Assign(f,'DAYSO.INP'); reset(f);
Assign(g,'DAYSO.OUT'); rewrite(g);
readln(f,n);
for i:=1 to n do read(f,A[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]<A[j] then
begin
tg:=A[i]; A[i]:=A[j]; A[j]:=tg;
end;
for i:=1 to n do write(g,A[i],' ');
writeln(g);
write(g,A[n],' ');
for i:=n-1 downto 1 do
if A[i]<>A[i+1] then write(g,A[i],' ');
close(f); close(g);
end.
