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

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