20 сумма 10000 рублей положена в сберегательный банк, при этом прирост составляет 5% годовых. составьте алгоритм, определяющий, через какой промежуток времени первоначальная сумма увеличится в два раза.

Var
  i:integer;
  x:real;
begin
x:=10000;
while x<20000 do
  begin
  x:=x*1.05;
  i:=i+1;
  end;
writeln('ответ: ',i);  
end.