Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3^K < N — Pascal(Паскаль)

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.