import Data.List.Split

toDouble :: String -> Double
toDouble = read :: String -> Double

main = do
  s <- getLine
  let l = splitOn " " s 
  let h = toDouble (l!!0)
  let w = toDouble (l!!1)
  putStrLn $ show $ ceiling (h * w / 2)
