double@n,@r;wt(100(1-(1-r)**n)/r);