https://pastein.ru/t/rJ
скопируйте уникальную ссылку для отправки
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;