Помогите решить простенькую задачку., Укажите ошибки в моей программе. Опции

[Casual]

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

Program Stepen;
var m, n:integer;
begin
writeln('Vvedite chislo');
readln(m);
n:=0;
while exp(n*ln(3))<m do n:=n+1;
writeln(n);
readln;
end.

[volvo]

может всетаки наименьшую ?

А чем наименьшая лучше наибольшей? Задание было про наибольшую, значит, надо наибольшую:

var m, n, p:integer;
begin
  writeln('Vvedite chislo');
  readln(m);

  n := -1; p := 1;

  repeat
    inc(n);
    p := p * 3;
  until p > m;

  writeln('n = ', n);
end.