
main = do
  line <- getLine
  let [a, b, c, d] = fmap (\a -> (read :: String -> Int) a) $ words line
      rec1 = a * b
      rec2 = c * d in
    putStrLn $ show $ if rec1 >= rec2 then rec1 else rec2
