import Data.Bool

main :: IO ()
main = do
  [w, h, x, y] <- map read . words <$> getLine :: IO [Double]
  let res = show $ w * h / 2
  let flg = bool "0" "1" $ w / 2 == x && h / 2 == y
  putStrLn $ unwords [res, flg]