($A,$B,$X,$Y)=glob<>;
print$B*$X<$A*$Y?$X+$X*$B/$A:$Y+$Y*$A/$B