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

Var
s:real;
i:integer;
begin
s:=10000;
while s<20000 do
begin
s:=s*1.05;
inc(i);
end;
writeln('Через ',i,' года');end.

Вот конкретно алгоритм. 
Где: 
i-промежуток времени(в годах). То, что мы и ищем
min-сумма вклада
max-сумма, до которой осуществляется рост(в нашем случаи min*2)
pr-процент прироста