program while9;
uses crt;
var 
  a,k,n:integer;
begin 
  clrscr;
  writeln('Введите число ');
  readln(n);
  a := 3;
  k := 1;
while a <= n do
  begin
    a := a * 3;
    k:=k+1;
  end;
writeln('Результат ',k);
readln;
end.