main :: IO ()
main = do
    [x,a,b] <- map read . words <$> getLine :: IO [Int]
    let d = a - b
        s = x + d
    putStrLn $ if d >= 0 then "delicious" else if s >= 0 then "safe" else "dangerous"
