import Control.Applicative
import Control.Monad
import Data.List
import Data.Array

main = do
  [h, w] <- map (read::String -> Int) . words <$> getLine
  [x, y] <- map (read::String -> Int) . words <$> getLine
  print $ h * w - x * w - y * h + x * y