import Data.Array.IArray

main = putStrLn . solve . map read . words =<< getContents

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