Дано целое число n.если оно является степенью числа 3,то вывести на экран « верно» ,иначе «ложь»
если ет у вас ф математика ил спецккурс то получается m -n и делай уровнение
var n: integer; begin readln(n); if(n mod 3 = 0) or (n = 1) then writeln('Является степенью тройки') else writeln('Не является'); end.