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


main :: IO ()
main = do
  [a,b] <- map read . words <$> getLine :: IO [Int]
  [h,w] <- map read . words <$> getLine :: IO [Int]
  print $ (a-h) * (b-w)

