Написать алгоритм поиска суммы денежного накопления в банке по истечению срока с учетом...

Question

Написать алгоритм поиска суммы денежного накопления в банке по истечению срока с учетом ежемесячных процентов. Если известно, что первоначальная сумма вклада S рублей, ежемесячно к сумме прибавляется р% от суммы предыдущего месяца. И время вклада n месяцев.
При помощи операторов for to do

Помогите пожалуйста, 3 дня голову ломаю(((

Answer 1

Var i,n:integer; s,p:real;
Begin
 write('S='); readln(s);
 write('p='); readln(p);
 write('n='); readln(n);
 p:=p*0.01;
 for i:=1 to n do s:=s+(s*p);
 writeln('Ответ: ',s);
End.