var x,y:array[0..100010]of double; n:longint; procedure init; var i:longint; begin readln(n); for i:=1 to n do readln(x[i],y[i]); end; procedure kp(st,ed:longint); var i,j:longint; q,t:double; begin i:=st; j:=ed; q:=x[(i+j)div 2]; repeat while x[i]q do dec(j); if i<=j then begin t:=x[i];x[i]:=x[j];x[j]:=t; t:=y[i];y[i]:=y[j];y[j]:=t; inc(i);dec(j); end; until i>j; if stl then min:=l; end; end; writeln(min:0:3); end; begin init; main; end.