Среди чисел 3,9,27,81....Найдите номер первого шестизначного числ....программа паскаль

var  i,n:integer;beginn:=1;while n<100000 do  begin  n:=n*3;  i:=i+1;  end;writeln('Ответ: ',i);end.