import qualified Data.ByteString.Char8 as BS
import Data.Maybe

readInt = fst . fromJust . BS.readInt

readIntList = map readInt . BS.words

getIntList = readIntList <$> BS.getLine

main = do
  [w, h, x, y] <- getIntList
  let s = ((fromIntegral w :: Float) * (fromIntegral h :: Float)) / 2
  if (fromIntegral w :: Float) / 2 == (fromIntegral x :: Float) && (fromIntegral h :: Float) / 2 == (fromIntegral y :: Float)
    then putStrLn $ unwords [show s, "1"]
    else putStrLn $ unwords [show s, "0"]
