var     a:array[1..2,1..10000]of longint;
        n,i,j,x,y:longint;
        d:int64;
        f1,f2:text;

begin
  assign(f1,'cmap.in');
  reset(f1);
  assign(f2,'cmap.out');
  rewrite(f2);
  readln(f1,n);

  for i:=1 to n do
    readln(f1,a[1,i],a[2,i]);

  x:=1;y:=2;d:=sqr(a[1,1]-a[1,2])+sqr(a[2,1]-a[2,2]);
  for i:=1 to n-1 do
  for j:=i+1 to n do
      if sqr(a[1,i]-a[1,j])+sqr(a[2,i]-a[2,j])<d then
        begin
          x:=i;
          y:=j;
          d:=sqr(a[1,i]-a[1,j])+sqr(a[2,i]-a[2,j]);
        end;

  write(f2,sqrt(d):0:6);
  close(f2);
end.