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

var

y: integer;

var

a, w: real;

begin

writeln ('В банк положено 10000 рублей под 5% годовых.');

w : = 10000;

a : = w * 2;

y : = 0;

while (w < a) do

begin

w : = w + (w / 100) * 5;

y : = y + 1;

end;

writeln ('Через ', y, ' лет данная сумма увеличится вдвое.');

end.