[pascal]format出力&プロシージャ

program main;
uses sysutils;
type
  Point=Record
  x:int64;
  y:int64;
  end;
  PointArray=Array[1..100000] of Point;
var
  T,N:integer;
  i:integer;
  arr:PointArray;
  A:Real;
  P:Point;
procedure DFS(idx:integer;pt:Point;c:integer);
var
  i:integer;
begin
  if(c=0)then
    begin
      for i:=idx to N do
        begin
          pt.x:=pt.x-arr[i].x;
          pt.y:=pt.y-arr[i].y;
        end;
        if(A>pt.x*pt.x+pt.y*pt.y)then
          begin
          A:=pt.x*pt.x+pt.y*pt.y;
          end;
    end
  else
    begin
      if(idx<>N)then
        begin
          for i:=idx to N do
            begin
              pt.x:=pt.x+arr[i].x;
              pt.y:=pt.y+arr[i].y;
              DFS(i+1,pt,c-1);
              pt.x:=pt.x-arr[i].x;
              pt.y:=pt.y-arr[i].y;
              pt.x:=pt.x-arr[i].x;
              pt.y:=pt.y-arr[i].y;
            end;
        end;
    end;
end;
begin
  readln(T);
  while(T<>0)do
  begin
    readln(N);
    for i:=1 to N do
      read(arr[i].x,arr[i].y);
      P.x:=0;
      P.y:=0;
      A:=99999999999999999999;
      DFS(1,P,N div 2);
      writeln(FormatFloat( '##0.000000',sqrt(A)));
    T:=T-1;
  end;
end.