import Control.Monad
import Data.Maybe
import qualified Data.ByteString.Char8 as BS
import Data.List

readInt = fst . fromJust . BS.readInt
readIntList = map readInt . BS.words
getInt = readInt <$> BS.getLine
getIntList = readIntList <$> BS.getLine

main = do
     [w, h, x, y] <- getIntList
     putStr . show $ solve w h
     putStr " "
     putStrLn $ check w h x y

solve w h = fromIntegral (w * h) / 2

check w h x y
    | w == 2 * x && h == 2 * y = "1"
    | w == 2 * x || h == 2 * y = "0"
    | otherwise = "1"