Составьте циклический алгоритм . заранее . определить какая сумма будет на счету в банке через 10 лет, если первоначальный вклад составил s рублей, банк ежегодно начисляет p-процентов.

Const
t=10;
var p,i:integer;
b,s:real;
begin
write('Вклад равен ');
read(s);
write ('Под процентом ');
read(p);
b:=1+p/100;
for i:=1 to t do
s:=s*b;
write('Под процентами пролежавши 10 лет вклад накопил ',s:12:4,' рублей');
end.