Дано целое число N (> 0). Если оно является степенью числа 3, то вы-вести True, если не...

Question

Дано целое число N (> 0). Если оно является степенью числа 3, то вы-вести True, если не является — вывести False. Помогите пж,

Answer 1

Var n: Real;
begin
readln(n);
if n>0 then writeln('true') else
writeln('false');
end.