sωēeτ¨fαrm

program p1119;
type arr=record
          x,y:array[1..4] of integer;
          car:integer;
         end;
var
 city:array[1..100] of arr;
 w:array[1..400,1..400] of extended;
 n,fly,car,a,b:longint;
 i,j:integer;
 min:extended;

procedure init;
var
 i,j,k,swap:integer;
 d12,d23,d13:extended;
begin
 readln(n,fly,a,b);
 if a=b then begin writeln('0.00');halt;end;
 for i:=1 to n do
   with city[i] do
    begin
     for j:=1 to 3 do read(x[j],y[j]);
     readln(car);if (i=a) or (i=b) then car:=0;
     for j:=1 to 2 do
      for k:=j+1 to 3 do
       if x[j]>x[k] then begin
          swap:=x[j];x[j]:=x[k];x[k]:=swap;
          swap:=y[j];y[j]:=y[k];y[k]:=swap;
       end;
     d12:=sqr(x[1]-x[2])+sqr(y[1]-y[2]);
     d23:=sqr(x[2]-x[3])+sqr(y[2]-y[3]);
     d13:=sqr(x[1]-x[3])+sqr(y[1]-y[3]);
     if d12+d13=d23 then begin
        x[4]:=x[2]+x[3]-x[1];
        y[4]:=y[2]+y[3]-y[1];
     end
     else
     if d12+d23=d13 then begin
        x[4]:=x[1]+x[3]-x[2];
        y[4]:=y[1]+y[3]-y[2];
     end
     else
     if d13+d23=d12 then begin
        x[4]:=x[1]+x[2]-x[3];
        y[4]:=y[1]+y[2]-y[3];
     end;
  end;
end;
procedure prepare;
 var
  i,j,k,l:integer;
 begin
  for i:=1 to n do
   with city[i] do
    begin
     for j:=1 to 3 do
      for k:=j+1 to 4 do
       begin
           w[4*i-4+j][4*i-4+k]:=sqrt(sqr(x[j]-x[k])+sqr(y[j]-y[k]))*car;
           w[4*i-4+k][4*i-4+j]:=w[4*i-4+j][4*i-4+k];
       end;
    end;
  for i:=1 to n do
   for j:=1 to n do
    if i<>j then begin
       for k:=1 to 4 do
        for l:=1 to 4 do
         w[i*4-4+k][j*4-4+l]:=sqrt(sqr(city[i].x[k]-city[j].x[l])+sqr(city[i].y[k]-city[j].y[l]))*fly;
    end;
end;
procedure floyed;
var
 i,j,k:integer;
begin
 for k:=1 to n*4 do
  for i:=1 to n*4 do
   if i<>k then
    for j:=1 to n*4 do
     if (i<>j) and (j<>k) then
        if w[i][k]+w[k][j]<w[i][j] then w[i][j]:=w[i][k]+w[k][j];
end;
begin
 init;
 prepare;
 floyed;
 min:=1000000;
 for i:=1 to 4 do
  for j:=1 to 4 do
   if w[a*4-4+i][b*4-4+j]<min then min:=w[a*4-4+i][b*4-4+j];
 writeln(min:0:2);
end.