Stepen' 3

program CheckPowerOfThree;

var
  n, num: integer;

begin
  writeln('Введите натуральное число:');
  readln(n);
  num := n;

  if n < 1 then
    writeln('Число ', num, 'не является степенью числа 3.')
  else
  begin
    while (n mod 3 = 0) do
      n := n div 3;

    if n = 1 then
      writeln('Число ', num, ' является степенью числа 3.')
    else
      writeln('Число ', num, ' не является степенью числа 3.');
  end;
end.