Дано целое число n(> 1).найдите наибольшее целое число k ,при котором выполнялось неравенство 3 в степени к

Var n,i,k,j:integer;

begin

readln(n);
i:=1;
j:=3;

while n>i do begin
i:=i*j;
k:=k+1;
end;

writeln(k-1);

end.