program Project2;
var
money, sum: real;
persent, year, i: byte;
{ money - начальная сумма, year - период лет, persent - процент }
{ ввод данных }
procedure vvod;
begin
Write('money = ');
ReadLn(money); { ввод начальной суммы денег }
Write('% = ');
ReadLn(persent); { ввод процента }
Write('years = ');
ReadLn(year); { кол-во лет }
end;
{ вывод результата }
procedure vivod;
begin
sum := money;
for i := 1 to year do
begin
sum := sum + (sum * (persent / 100));
writeln('after ', i, ' years summa = ', sum:7:2);
end;
end;
begin
vvod;
writeln('----------');
vivod;
ReadLn;
end.