program logarifm;

var
a, b, d, k, s, r: real;
c, x, f, g, n: integer;

begin
write('Введите логарифм b = ');
readln(b);
write('Введите основание логарифма a = ');
readln(a);
c := 1;
while (c >= 1) and (c <> x) do // Тут мы определим верхнию и нижнию границу логарифма
begin
d := exp(ln(a) * c); //Определяем границы с помощью подбора степеней. a^c
if d > b then // Если логарифм превысит наш, то цикл обрывается
begin
f := c; // Это сохраняется верхняя граница
c := x; // Число с=х, то есть происходит выход из цикла
end
else
begin
g := c; // Это нижняя граница цикла
c := c + 1; // Цикл продолжается. Следующая ступень цикла
end;
end;
while (c<0) and (c<>x) do
begin
d:=exp(ln(a)*c);
if d>b then
begin
f:=c;
c:=x;
end
else
begin
g:=c;
c:=c-1;
end;
end;
writeln('Наша старшая степень = ', f, '; младшая = ', g);
k := (b / (exp(ln(a) * (f - 1)))) - a; // Проверим по формуле (X/C^y-1-C¹) схожесть числа с нулем
writeln('Первая проверка равна ', k);
r := 0.5; // Первое деление 1 на 2-ку, путем (f-g)/2
if k < 0 then
s := f - r // Если итог меньше нуля или равен ему, то r вычитаем от степени старшей
else
s := f + r; // Если итог меньше нуля или равен ему, то r суммируем к степени старшей
writeln(s);
n := 0;
while (n <> 100) do // Цикл оборвется на 100-м шаге
begin
k := (b / (exp(ln(a) * (s - 1)))) - a; // Проверка новой полученной степени по формуле (X/C^y-1-C¹)
r := (r / 2); // "Дробим опорное число"
if k < 0 then
s := s - r;
if k > 0 then
s := s + r;
if k = 10 then
s := s + 0;
n := n + 1;
end;
writeln('Наш ответ = ', s:5:3);
end.