import Control.Applicative ((<$>))

alive :: Integral a => a -> a -> a -> a -> Bool
alive d1 d2 d3 s = s == 1 || d1 + d2 + d3 < 2

main :: IO ()
main = do
    [d1, d2, d3, s] <- fmap read . words <$> getLine :: IO [Int]
    putStrLn $ if alive d1 d2 d3 s then "SURVIVED" else "DEAD"