let () =
  let d1, d2, d3, s = read_line () |>
                      Str.split (Str.regexp_string " ") |>
                      List.map int_of_string |>
                      fun lst -> (List.nth lst 0, List.nth lst 1, List.nth lst 2, List.nth lst 3)
  in
  (s = 1 || (d1 + d2 + d3) < 2) |>
  (function | true -> "SURVIVED" | false -> "DEAD") |>
  print_endline