program zad01_13;
type niz= array[1..1000] of real;
matrica= array[1..100] of niz;
var
ul,iz:Text;
n,i,j:integer;
a:matrica;

procedure RazmeniVrste(var a,b:niz);
var p:niz;
begin
p:=a;a:=b;b:=p;
end;

procedure SortVrsta(n:integer; var x:matrica);
var i,j,k: integer;
begin
for i:=1 to n-1 do
begin
k:=i;
 for j:=i+1 to n do if x[j][1]<x[k][1] then k:=j;
if k<>i then RazmeniVrste(x[i],x[k]);
end;
end;

begin
assign(ul,'zad1.in');reset(ul);
assign(iz,'zad1.out');rewrite(iz);
readln(ul,n);
for i:=1 to n do
begin
for j:=1 to n do
read(ul, a[i][j]);
end;
SortVrsta(n,a);
for i:=1 to n do
begin
for j:=1 to n do
write(iz, a[i][j]:5:2);
writeln(iz);
end;
close(ul);close(iz);

end.