4. Население города ежегодно увеличивается на К%. Через сколько лет население города утроится?

Var k:real;

a, b, l:integer;

begin

Write ('Население города: ') ; read (a) ;

Write ('На сколько % будет увеличиваться население: ') ; read (k) ;

k:=k/100;

b:=3*a;

while a<=b do begin

a:=a*k+a;

l:=l+1;

end;

Writeln ('Население города утроится через ', l,' лет (года) ') ;

end.