program main implicit none integer::i,j,k,n,m read*,i,j,k,n m=i+j+k-100*n if(m<2)then print*,"SURVIVED" else print*,"DEAD" end if end program