/ROBOT5 - Robot đi tuần

<Problem>

http://ntucoder.net/Problem/Details/5553
              Uses Crt;
        Var a,b,c:extended;   t:longint;
        Procedure check;
        var  temp1,temp2:extended;
        begin
            temp1:=(a+b)/2; temp2:=2*a*b/(a+b);
            a:=temp1; b:=temp2;
            if (a*a+b*b<=c*c) then begin writeln('DANGER'); exit; end;
            if (abs(a-b)<0.0001) then begin writeln('SAFE'); exit; end;
            check;
        end;
        Begin
            readln(t);
            repeat
                readln(a,b,c);
                check;
                dec(t);
            until t=0;
        End.