import Data.List

solve :: Int -> Int -> Int
solve d1 d2
  | even d1 && even d2 = d1 `div` 2 + d2 `div` 2
  | even d1 && odd  d2 = d1 `div` 2 + d2 `div` 2 + 2
  | odd  d1 && even d2 = d1 `div` 2 + d2 `div` 2 + 2
  | odd  d1 && odd  d2 = d1 `div` 2 + d2 `div` 2 + 1

main :: IO ()
main = do
    list <- (map read) . words <$> getLine :: IO [Int]
    let [a, b, c] = reverse $ sort list
    let delta1 = a - b
    let delta2 = a - c
    print $ solve delta1 delta2
