main :: IO()
main = do
    [x,a,b] <- map read . words <$> getLine
    putStrLn $ getsolve x a b
    
getsolve :: Int -> Int -> Int -> String
getsolve x a b
    | a+x < b		= "dangerous"
    | a < b			= "safe"
    | otherwise		= "delicious"