import Control.Applicative

main :: IO ()
main = do
    [a, b, c] <- map read . words <$> getLine
    putStrLn $ solve a b c 
    
solve :: Int -> Int -> Int -> String
solve a b c = if (c-b) <= 0 then "delicious" else if (c-b) > a then "dangerous" else "safe"