dim e$(1)
input""d$
f=split(d$,e$(),":")
b=val(e$(2))
for i=1to val(e$(1))?b
b=b+int(b*val(e$(3))/100)next