program while9;
uses crt;
var
a,k,n:integer;
begin
clrscr;
writeln('Введите число ');
readln(n);
a := 3;
k := 1;
while a <= n do
begin
a := a * 3;
k:=k+1;
end;
writeln('Результат ',k);
readln;
end.
program while9;
uses crt;
var
a,k,n:integer;
begin
clrscr;
writeln('Введите число ');
readln(n);
a := 3;
k := 1;
while a <= n do
begin
a := a * 3;
k:=k+1;
end;
writeln('Результат ',k);
readln;
end.