Сумма 10 000 рублей положена в банк. Прирост - 5% годичных.

var
y: integer;

var
a, w: real;

begin

writeln ( В банк положено 10000 рублей под 5% годичных. );
w := 10000;
a := w * 2;
y := 0;
while ( w lt; a ) do

begin
w := w + ( w / 100 ) * 5;
y := y + 1;
end;
writeln ( Через , y, лет данная сумма возрастет в два раза. );
end.