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 -> (Int, Int)
compute w h x y = (max hor ver, flag)
  where
    hor = w * min (h-y) y
    ver = h * min (w-x) x
    flag = if hor == ver then 1 else 0
