main = do
  li <- getLine
  let [w, h, x, y] = map read $ words li
  let (a1,a2) = compute w h x y
  putStrLn $ unwords [show a1, show a2]

compute :: Int -> Int -> Int -> Int -> (Float, Int)
compute w h x y = (area, flag)
  where
    area = fromIntegral (w+h) / 2
    flag = if x * 2 == w && y * 2 == h then 1 else 0
