Помогите пожалуйста ((
Дано целое число N>1, найти наибольшее целое число K при котором выполняется неравенство 3К

Program while_4; var N: integer; begin readln(N); while N mod 3 = 0 do N := N div 3; // пока остаток от деления на 3 равен нулю, делим на 3. writeln(N = 1); // Выведет True или False end.