main :: IO ()
main = do
  [px, py, qx, qy] <- map (read :: String -> Double) . words <$> getContents
  print $ (abs (px - py) + abs (qx - qy)) / 2