Compound interest

clg
color red
value=10
f=150/value
intrest=2
for y = 1 to 40
value=value*(1+intrest/100)
print y+" "+value
rect y*5 ,300-value*f,4,value*f
next y