solver::Int -> Int -> Int -> Int
solver w a b = if w >= (abs (a-b))then 0 else (abs (a-b)) - w


main::IO()
main =do
  datc<-getLine
  let w:a:b:[]=map read (words datc) ::[Int]
  print (solver w a b)
