var a:array[1..100,1..100]of integer;
    v:array[1..10000]of integer;
var i,n,p,j,aux:integer;
begin
     
    readln(n);
    
    
    for i:=1 to n*n do
       read(v[i]);
    
    for i:=1 to (n*n)-1 do
    for j:=i+1 to n*n do
    If v[i]<v[j] then
    begin
    aux:=v[i];
    v[i]:=v[j];
    v[j]:=aux;
    end;
    
    for i:=1 to n do
    a[i,i]:=v[i];
    
    p:=n;
    for i:=1 to n do
    	for j:=1 to n do
    		begin 
    		If i<>j then
          begin
      		a[i,j]:=v[p+1];
      		p:=p+1;
      	  end;
    		end;
    
    for i:=1 to n do
    begin
    for j:=1 to n do
    write(a[i,j],' ');
    writeln;
    end;
    
end.