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

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

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