$/=$";($a,$b,$x,$y)=<>;
print $a/$b<$x/$y ? $y*(1+$a/$b) : $x*(1+$b/$a)