main :: IO ()
main = do
  [a, b, c, d] <- getInts
  let areaA = a * b
  let areaB = c * d
  if areaA > areaB
    then print areaA
    else print areaB

getInts :: IO [Int]
getInts = map read . words <$> getLine
 
