program while10;
uses crt;
var 
  n:integer;
  k: real;
begin clrscr;
  Writeln('Введите число ');
  k:=0;
  read(n);
while n > exp(k*ln(3)) do
  k:=k+1;
writeln('Результат ', k-1:3:0);
readln;
end.