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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.