uses crt;
var i,ii,j,k,d,n,tam:longint;
    a,b:array[1..100000000] of longint;
begin
    clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);readln;
    for i:=1 to n-1 do
       for j:=i+1 to n do
          if a[i]>a[j] then
          begin
               tam:=a[i];
               a[i]:=a[j];
               a[j]:=tam;
          end;
    if n mod 2=0 then
    begin
        i:=1;d:=0;
        while i<=n do
        begin
              j:=i;
              while a[j]=a[j+1] do inc(j);
              if (j-i+1) mod 2<>0 then
              begin
                   writeln('KHONG');
                   readln;
                   exit;
              end;
              for ii:=1 to (j-i+1) div 2 do
              begin
                    inc(d);
                    b[d]:=a[i];
                    b[n-d+1]:=a[i];
              end;
              i:=j+1;
           end;
    end
    else
    begin
        k:=0;
        i:=1;d:=0;
        while i<=n do
        begin
              j:=i;
              while a[j]=a[j+1] do inc(j);
              if (j-i+1) mod 2=1 then
              begin
                  b[n div 2 + 1]:=a[i];
                  inc(k);
              end;
              if k=2 then
              begin
                   writeln('KHONG');
                   readln;
                   exit;
              end;
              for ii:=1 to (j-i+1) div 2 do
              begin
                    inc(d);
                    b[d]:=a[i];
                    b[n-d+1]:=a[i];
              end;
              i:=j+1;
        end;
    end;
    for i:=1 to n do write(b[i],' ');
readln;
end.