Investments

% Invest 1000 @ 9% interest for 10 years
% How much money will you have after 10 years

var money : real := 1000
var year : int := 0
var interest : real := 0

loop
    year += 1
    interest := money * .09
    money := money + interest
    exit when year = 10
    put "Start ", money : 0 : 2, " Interest ", interest : 0 : 2, " in year ", year
    delay (1000)
end loop

put "You will have $", money : 0 : 2, " after 10 years"