---

var n, k, s:integer;
begin
   n:=strtoint(Edit1.text);
   if n<=3 then k:=1
else
 begin
  k:=1;
  s:=3;
  while s<=n do
   begin
    s:=s*3;
    k:=k+1;
   end;
 endt2.text:='k = ' + inttostr(k) + '; 3 ^ ' + inttostr(k) + ' = ' + inttostr(s);
end;

---

---

---