Пользователь вводит натуральное число. Является ли оно степенью числа 3. Если да, то какой.

program n_3;

var p, n, cn, o: integer;

begin

write ('Введите целое число - ');

readln (n);

cn : = n;

p : = 0;

while (n div 3) > 0 do

begin

o : = n mod 3;

if o = 0 then

begin

n : = n div 3;

p : = p + 1

end

else n : = 1

end;

if o >0 then writeln (cn, ' не может быть представлено, как целая степень числа 3')

else writeln (cn, ' = ', '3^', p)

end.