program roads;
type
fxz1=array[1..1000] of real;
fxz2=array[1..1000,1..1000] of real;
fxz3=array[1..1000] of boolean;
var
f1,f2:text;
i,j,k,a,b,n,m:longint;
min,ans:real;
x,y,ls:fxz1;
map:fxz2;
f:fxz3;




begin assign(f1,'roads.in');
      assign(f2,'roads.out');
      reset(f1);rewrite(f2);
      readln(f1,n,m);
      for i:=1 to n do
      readln(f1,x[i],y[i]);
      for i:=1 to n do
      for j:=1 to n do
      map[i,j]:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
      for i:=1 to m do
      begin readln(f1,a,b);
            map[a,b]:=0;
            map[b,a]:=0;
      end;
      for i:=1 to n do
      f[j]:=true;

      for i:=1 to n do
      ls[i]:=map[1,i];
      f[1]:=false;
      for i:=2 to n do
      begin
          min:=maxlongint;
          for j:=1 to n do
          if (f[j])and(ls[j]<min) then begin min:=ls[j];
                                                 k:=j;
                                            end;
          f[k]:=false;
          for j:=1 to n do
          if map[k,j]<ls[j] then ls[j]:=map[k,j];
      end;
      ans:=0;
      for i:=1 to n do
      if ls[i]>0 then ans:=ans+ls[i];
      writeln(f2,ans:0:2);
      close(f1);close(f2);
end.