TIMSO PASCAL

var    a:array[1..100005] of longint;
    n,i,j:longint;
procedure nhap;
begin
    readln(n);
    for i:=1 to n do read(a[i]);
end;
 
procedure qs(l,h:longint);
var x,i,j,t:longint;
begin
    i:=l;j:=h;
    x:=a[(l+h) div 2];
    repeat
        while a[i] < x do inc(i);
        while a[j] > x do dec(j);
        if i<=j then
        begin
            t:=a[i];
            a[i]:=a[j];
            a[j]:=t;
            inc(i);
            dec(j);
        end;
    until i>j;
    if L<j then qs(L,j);
    if i<H then qs(i,H);
end;
 
procedure giai;
begin
    qs(1,n);
    //cau a
    writeln(a[1],' ',a[n]);
    //cau b
    for i:=1 to n-1 do
        for j:=a[i]+1 to a[i+1]-1 do
            write(j,' ');
 
 
end;
 
begin
    assign(input,'timso.inp');reset(input);
    assign(output,'timso.out');rewrite(output);
    nhap;
    giai;
end.