solve :: Int -> Int -> Int -> Int
solve w a b 
  | a + w < b = b - (a + w)
  | b + w < a = a - (b + w)
  | otherwise = 0

main = do
  [w, a, b] <- map read . words <$> getLine
  putStrLn . show $ solve w a b
