Question

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

Answer 1

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