Составьте алгоритм ** Паскале пожалуйста

Question

Составьте алгоритм на Паскале пожалуйста

---

Answer 1

Var n: integer; p,S:real;begin;S:=10000;p:=1+0,05;while S<20000 dobeginS:=S*p;n:=n+1end;writeln('Вклад в 10000 увелечится в два раза после ',n,'месяцев');end. 

Comments

Для лучшего понятия

---

var n: integer; p,S:real;
begin;
S:=10000;
p:=1+0,05;
while S<20000 do<br>begin
S:=S*p;
n:=n+1
end;
writeln('Вклад в 10000 увелечится в два раза после ',n,'месяцев');
end.

Answer 2

Var time:integer;
var summa:real;
var month:string;
k:=1.05;
begin
month := ' месяцев';
summa:=10000;
while summa<20000 do begin  <br>   summa:=summa*k; 
   time:=time+1;
   end;
writeln('Ответ:',time + month);  
end.