program lab8v22a;
const n=10;
type  
   ball=record
     x:real;
     y:real;
     r:real;
   end;
   balls=array[1..n] of ball;
function in_ball(const a,b:ball):boolean;
   begin
     if a.r>b.r then
       in_ball:=(sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)))<(a.r-b.r)
      else
        in_ball:=(sqrt(sqr(a.x-b.x)+sqr(a.y-b.y)))<(b.r-a.r)
   end;
var
   a:balls;
   i,j:byte;
   f:boolean;
begin
   for i:=1 to n do
     read(a[i].x,a[i].y,a[i].r);
   i:=1;
   j:=2;
   f:=true;
    while (i<>n-1) and (f=true) do
     begin
       while (j<>n) and (f=true) do
          begin
            if in_ball(a[i],a[j])= true then
               begin
                 writeln ('IN BALL!');
                 f:=false;
               end;
            j:=j+1;
           end;
        i:=i+1;
     end;
end.