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

Question

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

---

Answer 1

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.