uses crt;
var n,i,j,k:word;
vt:array[1..1000] of word;
t,min:real;
x,y:array[1..1000] of integer;
max:array[1..1000] of real;
f1,f2:text;
begin
clrscr;
assign(f1,'TRAMYTE.INP');reset(f1);
assign(f2,'TRAMYTE.OUT');rewrite(f2);
readln(f1,n);
for i:=1 to n do readln(f1,x[i],y[i]);
for i:=1 to n do
begin
max[i]:=0;
vt[i]:=1;
for j:=1 to n do
begin
t:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
if t>max[i] then
begin
max[i]:=t;
vt[i]:=j;
end;
end;
end;
min:=max[1];k:=1;
for i:=2 to n do
if min>max[i] then
begin
min:=max[i];
k:=i;
end;
writeln(f2,k,#13#10,max[k]:0:2,#13#10,vt[k]);
close(f1);close(f2);
end.
