Дано целое число N(>1).Найдите наибольшее целое число K ,ПРИ КОТОРОМ ВЫПОЛНЯЛОСЬ неравенство 3 в степени К<N

Иходные данные N=65

Пример верного решения K=4

var n,i,k,j:integer;beginreadln(n);i:=1;j:=3;while n>i do begini:=i*j;k:=k+1;end;writeln(k-1);end.