Задачка по Паскалю

[Vanet]

Помогите пожалуйста. (*изучаю ПАСКАЛЬ 3 дня*)

Кто то положил в банк деньги (Программа должна спрашивать у пользователя сумму), под 7%(сложных, т.е. каждый год берётся заново от накопления за предыдущий
год), сроком на три года. Прога должна выводить в таблице сколько будет в конце каждого года, и в конце истечения всего срока.

Заранне благодарен!

[Alex21]

Например вот так:

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.

[Vanet]

Огромное спасибо, Alex21, респект тебе дружище!!!