сумма s рублей положена в сбербанк при этом каждогодний прирост сочиняет

program raf105;

var

 s,p,n: real;

 i,let: integer;

begin

write('Введите положенную сумму: ');

readln(s);

write('Введите ежегодный прирост (%): ');

readln(p);

write('Введите желанную сумму: ');

readln(n);

while s lt; n do

begin

 let+= 1;

 s+= s/100*p;

end;

writeln('Первоначальная сумма возрастет до желанной через ',let,' л.');

end.

Язык PascalABC