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

дай бог тебе здоровья.

var a,an,n:integer;begina:=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