Через сколько лет население города утроится

uses crt;
var
n,let:integer;
nas:real;
begin clrscr;
write('kol-vo naseleniya=');
read(n);
nas:=n;
let:=0;
while nas<3*n do
 begin
  nas:=nas+1/n;
  inc(let);
 end;
writeln('naselenie=',nas:2:2);
writeln('cherez ',let,' let');
readkey;
end.

uses crt;
var
n,g:integer;
u,s:real;
begin
clrscr;
write ('n=');
readln (n);
s:=n;
u:=1/n;
g:=0;
while s<=n*3 do
begin
inc (g);
s:=s+u;
end;
writeln ('Через',' ',g,' ','лет.');
end.

uses crt; //подключаем модуль crt
var  //описание переменных
n,let:integer;
nas:real;
begin clrscr; //начало программы, очистка экрана
write('kol-vo naseleniya='); //вводим начальное кол-во начеления
read(n); //читаем данные
nas:=n;  //изначально кол-во начения будет таким же
let:=0;  //кол-во лет, которые прошли
while nas<3*n do //цикл "пока nas<3*n выполнить"
 begin
  nas:=nas+1/n; //население увеличиваем на 1/n
  inc(let); //увеличиваем на 1 и кол-во лет
 end;
writeln('naselenie=',nas:2:2); //выводим сколько получается населения
writeln('cherez ',let,' let'); //выводим кол-во лет, через которые выполнится условие
readkey; //читаем символ
end.   //завершение программы

while nas<3*n do //цикл "пока nas<3*n выполнить" 
begin 
   nas:=nas+1/nas; //население увеличиваем на 1/nas
   inc(let); //увеличиваем на 1 и кол-во лет 
end;