Imports System.Collections.Generic
Imports System.Console
Module Program
 	Sub Main()
 	    Dim inputs as String()
        inputs = Console.ReadLine().Split(" ")
	    Dim A As Integer = inputs(0)
	    Dim B As Integer = inputs(1)
	    Dim C As Integer = inputs(2)
	    Dim D As Integer = inputs(3)
        Console.WriteLine(IIf(A*B > C*D, A*B, C*D))
    End Sub
End Module
