Var i:integer; s:real;
begin
s:=1000;
for i:=1 to 12 do
begin
s:=s*1.02;
writeln(i,' - ',s:6:2);
end;
end.
Результат:
1 - 1020.00
2 - 1040.40
3 - 1061.21
4 - 1082.43
5 - 1104.08
6 - 1126.16
7 - 1148.69
8 - 1171.66
9 - 1195.09
10 - 1218.99
11 - 1243.37
12 - 1268.24