PascalABC
Ввести начальный вклад клиента в банк и процент годового дохода. Определить через сколько лет вклад превысит 1 млн. рублей

program raf105;

var  

 v,p: real;

 i,let: integer;

begin

write('Вклад: ');

readln(v);

write('Процент годового дохода: ');

readln(p);

while v < 1000000 do

begin

 let:= let+1;

 v:= v+v/100*p;

end;

writeln('Вклад превысит 1 млн. через ',let,' лет');

end.

PascalABC 3.4.2