{$APPTYPE CONSOLE} var i,j,n:integer;l:real;f:text; x,y,R:array [1..10000] of integer; begin assign(f,'Circle.dat');reset(f); readln(f,n); for i:=1 to n do readln(f,x[i],y[i],R[i]); close(f); assign(f,'Circle.sol');rewrite(f); for i:=1 to n-1 do for j:=i+1 to n do begin l:=sqrt(sqr(x[j]-x[i])+sqr(y[j]-y[i])); if (l>=abs(R[i]-R[j])) and (l<=(R[i]+R[j])) then begin write(f,j,' ',i);close(f);halt;end; end; if (l(R[i]+R[j])) then write(f,'0'); close(f); end.