$_/=100for($P,$Q)=glob<>;
print$P*$Q/($P*$Q+(1-$P)*(1-$Q))*100