program dmatrix;
var     a:array[1..100,1..100] of integer;
        v:array[1..10000] of integer;
        n,i,j,cnt:integer;

function pivot(st,dr:integer):integer;
var i,j,di,dj,aux,m:integer;
begin
 i:=st; j:=dr; di:=1; dj:=0;
 while i<j do begin
        if v[i]<v[j] then begin
                aux:=v[i];
                v[i]:=v[j];
                v[j]:=aux;
                aux:=di;
                di:=dj;
                dj:=aux;
        end;
        i:=i+di;
        j:=j-dj;
 end;
 pivot:=i;
end;

procedure qsort(st,dr:integer);
var p:integer;
begin
 if st<dr then begin
        p:=pivot(st,dr);
        qsort(st,p-1);
        qsort(p+1,dr);
 end;
end;

begin
 readln(n);
 for i:=1 to n*n do
        read(v[i]);
 qsort(1,n*n);
 for i:=1 to n do begin
        a[i,i]:=v[i];
 end;
 cnt:=n;
 for i:=1 to n do
  for j:=1 to n do
        if i<>j then begin
                cnt:=cnt+1;
                a[i,j]:=v[cnt];
        end;
 for i:=1 to n do begin
        for j:=1 to n do
                write(a[i,j],' ');
        writeln();
 end;
end.