solver::Int->Int->Int->String
solver x a b = if b<=a then "delicious" else if b<=(a+x) then "safe" else "dangerous"

main::IO()
main=do
  d<-getLine
  let x:a:b:[] = map read (words d)
  putStr ((solver x a b)++"\n")