ll@n,@a[n],@b[];float r[];rep(i,n)r[i]=1.a[i]/~-b[i];sortA(n,r,a,b);Mint s,x=1;rep(i,n)s+=a[i]*x,x*=b[i];wt(s);