
main :: IO ()
main = do
    [a,b,c,d] <- (map read . words) <$> getLine
    print $ solve (a,b) (c,d)

solve :: (Int,Int) -> (Int,Int) -> Int
solve (a,b) (c,d)
    | a*b >= c*d    = a*b
    | otherwise     = c*d
