Население города ежегодно увеличивается на 1/40 наличного состава жителей. Вопрос: через сколько лет население утроиться.- QBasic(Бейсик)

CLS
INPUT "Naselenie=";n
a=3*n
k=0
WHILE n<a
 k=k+1
 n=n+n/40
WEND
PRINT "Naselenie utroitsya cherez ";k;" let"

Тестирование выполнено в программе QB64 ( Скачать )