Если число является степенью числа 3, то вывести True, если нет, то False - Pascal ABC

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

Листинг программы

var a, b: Integer;
begin
  ReadLn(a); b:=1;
  while b<a do b:=b*3;
  WriteLn(a=b);
end.

Объяснение кода листинга программы

Вводится число a с помощью функции ReadLn.
Инициализируется переменная b со значением 1.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной b меньше значения переменной a.
Внутри цикла значение переменной b умножается на 3.
После выхода из цикла выводится сообщение a=b, где a и b — это значения переменных. Если число является степенью числа 3, то a и b будут равны, и на экран будет выведено True. Если число не является степенью числа 3, то a и b будут разными, и на экран будет выведено False.