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

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

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.