cделать с помощью цикла repeat until
Логической переменной t присвоить значение true
или false в зависимости от того, является натуральное число k степенью 3 или
нет.

Var chislo:integer;
proverka:boolean;
begin 
 proverka:=true; 
    read(chislo);   
          repeat     
               if chislo=0 then                 //так как 0 не натуральное число
                 begin
                  proverka:=false; 
                  break;
                  end;
               if (chislo mod 3)>0 then         
                    begin             
                        proverka:=false;           
                        break;       
                    end     
                else chislo:=chislo div 3;   
           until(chislo=0);
    if proverka then WriteLn(Да)
    else WriteLn(Нет);
  readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.