ошибка вывода в Memo значения выражения (true/false)

[schibeki]

У меня есть код паскаля

uses crt;
var n,k:integer;
begin
clrscr;
repeat
write('Введите натуральное число, проверить на степеь числа 3 n=');
readln(n);
until n>0;
k:=1;
while k<n do k:=k*3;
write(k=n);
readln
end.

условие такое: дано целое число N(>0). Если оно является степенью числа 3,то вывести true,иначе false.
вот мой код делфи:

procedure TForm1.Button1Click(Sender: TObject);
Var
k,n:integer;
Begin
repeat
  n:=StrToInt(Edit1.Text);
  Memo1.Lines.Add(' N = '+Edit1.Text);
Until N>0;
k:=1;
while k<n do k:=k*3;
Memo1.Lines.Add(k=n);

Пробывал разными способами,но не получилось,помогите,пожалуйста)))




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[TUberwer]

Так?

procedure TForm1.Button1Click(Sender: TObject);
var
n,k : integer;
begin
n := StrToInt(Edit1.Text);
  if n>0 then
  begin
   k:=1;
   while k < n do
   begin
    k := k*3;
   end;
   if k = n then Memo1.Lines.Add('True')
   else Memo1.Lines.Add('False');
  end;
end;

[OlegPrograming5]

Вам нужно преобразовать логическое значение в строку. Ведь в Memo.Lines можно добавлять только строки. Воспользуйтесь функцией BoolToStr, например так:

Memo1.Lines.Add(BoolToStr(k=n,true))

(Второй параметр, если false, то логическое значение будет представлено как "0" - ложь, "1" - истина. Если он true, то, соответственно "False" - ложь и "True" - истина).