Население города едегодно увеличивается на 1/40 наличного состава жителей ( сейчас в нем 240 000) через сколько лет население города утроится? pascal

Var a,an,n:integer;
begin
a:=240000;
an:=a;
n:=0;
while an<3*a do 
 begin
 n:=n+1;
 an:=an+an div 40;
 end;
writeln('n = ',n);
end.

Результат:
n = 45