记录编号	27098	评测结果	AAAAAAAAAT
题目名称	公路修建	最终得分	90
用户昵称	donny	是否通过	未通过
代码语言	Pascal	运行时间	2.445 s
提交时间	2011-08-02 10:56:25	内存使用	0.23 MiB

program roadz;
var
  i,j:longint;
  l,r:array[1..5000]of double;
  n:longint;
  a:array[1..5000]of double;
  c,e:double;
  d:integer;
  tot:double;

begin
  assign(input,'roadz.in');
  reset(input);
  assign(output,'roadz.out');
  rewrite(output);

  readln(n);
  for i:=1 to n do
    readln(l[i],r[i]);


  a[1]:=0;
  for i:=2 to n do
  begin
    a[i]:=sqrt((l[1]-l[i])*(l[1]-l[i])+(r[1]-r[i])*(r[1]-r[i]));
  end;

  tot:=0;
  for i:=2 to n do
  begin
    c:=9999999999;
    d:=0;
    for j:=2 to n do
      if a[j]<>0 then
      if a[j]<c then
      begin
        c:=a[j];
        d:=j;
      end;
    tot:=tot+c;
    a[d]:=0;
    for j:=2 to n do
      if a[j]<>0 then
      begin
        e:=sqrt((l[d]-l[j])*(l[d]-l[j])+(r[d]-r[j])*(r[d]-r[j]));
        if e<a[j] then
          a[j]:=e;
      end;
  end;

  writeln(tot:0:2);

  close(input);
  close(output);

end.