solve ls
    | last ls == 1                          = "SURVIVED"
    | (length . filter (==1) . init) ls > 1 = "DEAD"
    | otherwise                             = "SURVIVED"

main = getLine >>= putStrLn . solve . map (read :: String -> Int) . words