uses crt;
var i,j,n,t:longint;
a:array[1..1000000]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
for j:=1 to i do
if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
for i:=1 to n do write(a[i],' '); writeln;
for i:=1 to n-1 do
for j:=a[i]+1 to a[i+1]-1 do write(j,' ');
readln; readln;
end.