Дано целое число n.если оно является степенью числа 3,то вывести на экран « верно» ,иначе «ложь»

если ет у вас ф математика ил спецккурс то получается m -n и делай уровнение

var
  n: integer;
begin
  readln(n);
  if(n mod 3 = 0) or (n = 1) then writeln('Является степенью тройки')
    else writeln('Не является');
end.