var
     t:array[1..10000] of longint;
     a:array[1..100,1..100] of longint;
     n,i,j,x,y:longint;
begin
//assign(input,'a.in');reset(input);
readln(n);
for i:=1 to n*n do read(t[i]);
for i:=1 to n*n-1 do
  for j:=i+1 to n*n do
   if t[i]<t[j] then begin
   x:=t[i];t[i]:=t[j];t[j]:=x;end;
for i:=1 to n do a[i,i]:=t[i];
x:=n+1;
for i:=1 to n do
 for j:=1 to n do
 if a[i,j]=0 then begin
   a[i,j]:=t[x];inc(x);end;
for i:=1 to n do begin
 for j:=1 to n do write(a[i,j],' ');writeln;end;
end.