Var X,Y:real; Begin Write('X = ');Read(X); Write('Y = ');Read(Y); if (X*X+Y*Y<=36)and((X<=0)or(Y<=0)) then WriteLn('true') else WriteLn('false'); End.