$n=<>; $r=1-<>; print 100*(1-$r**$n)/(1-$r);