main :: IO ()
main = do
  ss <- map read . words <$> getLine :: IO [Double]
  let (ans, i) = solve ss
  putStr $ show ans
  putStr " "
  putStrLn $ show i

solve :: [Double] -> (Double, Int)
solve (w:h:x:y:_) = (w * h / 2.0, i)
  where
    i = if w / 2.0 == x && h / 2.0 == y
        then 1
        else 0