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;