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

main :: IO ()
main =
  putStrLn .
  (\(v1, v2) -> show v1 ++ " " ++ show v2) .
  (\(w:h:x:y:_) -> solver w h x y) . map read . words =<<
  getLine
