program problemDomimatrix;

var	n, i, j, k, x: longInt;
	a: array[ 1..10000 ] of longInt;

begin
	readln( n );
	for i := 1 to n * n do
	begin
		read( x );
		
		k := n;
		while ( k > 0 ) and ( i > n ) and ( x > a[k] ) do
			dec( k );
		
		if ( i > n ) and ( x > a[k + 1] ) then
		begin
			a[i] := a[n];
			for j := n downto k + 2 do
				a[j] := a[j - 1];
			
			a[k + 1] := x;
		end
		else
			a[i] := x;
	end;
	
	k := n + 1;
	for i := 1 to n do
	begin
		for j := 1 to n do
		begin
			if ( i = j ) then
				write( a[i] )
			else
			begin
				write( a[k] );
				inc( k );
			end;
			
			if ( j < n ) then
				write( ' ' );
		end;
		
		writeln();
	end;
end.