{* Задача 206 *}

Unit ZADACH206;
Interface
Implementation
Begin
 writeln('Дано целое число N(>0). Если оно является степенью числа 3, то вывести TRUE, если не является - вывести FALSE.');
End.

Program pas13529;

Uses zadach206.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  N    : integer;
  flag : boolean;
Begin
  clrcsr;
  writeln ('Введите число');
  readln(N);
  flag := true;
  While N > = 3 Do
  Begin
    If N Mod 3  0 Then
      flag := false;
    / / точно не помню, Mod или Div возвращает остаток от деления, тут надо проверить команду  N := N / 3;
  End;
  If flag Then
    write ('TRUE')
  Else write ('FALSE');
End.