main = do
  [d1, d2, d3, s] <- map read . words <$> getLine
  putStrLn $ flag d1 d2 d3 s

flag :: Int -> Int -> Int -> Int -> String
flag d1 d2 d3 1 = "SURVIVED"
flag d1 d2 d3 s 
  | d1 + d2 + d3 >= 2 = "DEAD"
  | otherwise = "SURVIVE"