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

1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.