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