Задача на цикл Опции

[Барс]

Нужон хелп. Никак не могу добиться, чтобы лишний раз цикл не прокручивался.

Задача.Дано целое число N (> 1). Вывести наибольшее целое K, при котором выполняется неравенство 3^K < N, и само значение 3^K. 

Program j;
uses Crt;
var
  b, n, k:integer;
begin
  ClrScr;
  write('Введите n='); readln(n);
  b:=1; k:=0;
    repeat
      k:=k+1;
      b:=b*3;
    until b>n;
  writeln('k=', k, ' 3^k=', b);
readln;
end.

С while тоже не получается.

[Lapp]

Просто для полноты рассмотрения - с repeat/until тоже все прекрасно выходит:

  b:=1;
  k:= -1;
  repeat
    Inc(k);
    b:= b*3
  until b>=n;   { обрати внимание - тут нужно нестрогое неравенство! если, конечно, условие приведено верно.. }

Пусть автор темы не думает, что тут есть принципиальная разница.. ))

Но вообще, я не понимаю преподов, которые дают подобные задачи.. Заставлять студентов делать нерациональное решение - методологическая ошибка, я считаю. Задача решается без всяких циклов в одно касание:

  k:= Trunc(ln(N-1)/ln(3));