CONST
 n=10;
 m=12;
VAR
 X:Array[1..m,1..n] of Real;
 R:Array[1..m] of Real;
 i,j:Integer;
 Dummy:Real;

BEGIN
 For i:=1 to m do
  begin
   Writeln('Point N',i);
   R[i]:=0;
   for j:=1 to n do
    begin
     write('X[',j:2,']= ');
     readln(X[i,j]);
     R[i]:=R[i]+SQR(X[i,j]);
    end;
   R[i]:=SQRT(R[i]);
   writeln;
  end;

 For i:=1 to m do
  For j:=1 to m-i do
   If R[j]>R[j+1] then
    begin
     Dummy:=R[j];
     R[j]:=R[j+1];
     R[j+1]:=Dummy;
    end;

 For i:=1 to m do write(R[i]:8:2);
 Readln;
END.