PascalABCВвести исходный вклад клиента в банк и процент годового дохода. Найти

program raf105;

var  

 v,p: real;

 i,let: integer;

begin

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

readln(v);

write('Процент годичного заработка: ');

readln(p);

while v lt; 1000000 do

begin

 let:= let+1;

 v:= v+v/100*p;

end;

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

end.

PascalABC 3.4.2