import Data.Bits
import Data.List
import Control.Monad
import Data.Array.Unboxed
import Data.Array.MArray
import Data.Array.ST
import Control.Monad.ST
import Data.Maybe (fromJust)
import qualified Data.ByteString.Lazy.Char8 as B
import Debug.Trace

solve :: Int -> Int -> Int -> Int -> (Double,Int)
solve  w h x y = if ((fromIntegral w :: Double) / 2 == (fromIntegral x) && (fromIntegral h :: Double) / 2 == (fromIntegral y :: Double))
  then ((fromIntegral (w*h) :: Double) / 2,1)
  else ((fromIntegral (w*h) :: Double) / 2,0)

print0 :: (Double,Int) -> IO ()
print0 (x,y) = putStrLn $ (show x) ++ " " ++ (show y)

main :: IO ()
main = do
  [w,h,x,y] <- map read.words <$> getLine :: IO [Int]
  print0 $ solve w h x y
