module Main where

import Control.Monad

main :: IO ()
main = do
    [px, py] <- fmap read . words <$> getLine
    [qx, qy] <- fmap read . words <$> getLine
    let dx = abs (qx - px)
    let dy = abs (qy - py)
    print $ (fromIntegral $ dx + dy) / 2