foreach {n m r} [split [gets stdin] :] {while \$n {puts $m
set m [expr $m+$m*$r/100]
incr n -1}}