Var i,n:longint;
l,r,k:extended;
x,y:array [1..15000] of extended;
function f(k:extended):extended;
Var rez:extended;
i:longint;
begin
  rez:=0;
  for i:=1 to n do
  rez:=rez+sqrt(y[i]*y[i]+(x[i]-k)*(x[i]-k));
  f:=rez;
end;
begin
  Assign(input,'input.txt'); reset(input);
  Assign(output,'output.txt'); rewrite(output);
  read(n);
  for i:=1 to n do
  read(x[i],y[i]);
  l:=x[1];
  r:=x[2];
  for i:=1 to 500 do
  begin
    k:=(r-l)/3;
    if f(l+k)>f(l+k+k)
    then l:=l+k
    else r:=l+k*2;
  end;
  writeln(r);
end.