main :: IO ()
main = do
  w:a:b:_ <- fmap (\x -> read x :: Int) <$> words <$> getLine
  print $ solve w a b
    where
      solve w a b
        | w + x >= y = 0
        | True y - x - w
          where
            x = min a b
            y = max a b