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

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