Сумма 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

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