main :: IO ()
main = do
  [x, a, b] <- map read . words <$> getLine :: IO [Int]
  putStrLn $ solve x a b

solve :: Int -> Int -> Int -> String
solve x a b
  | b <= a = "delicious"
  | b - a > x = "dangerous"
  | otherwise = "safe"
