Lolbem

Здравствуйте,помогите опять пожалуйста,я сейчас скину пример и нужно на подобие его сделать мой(a^x<b).
var a,b,c:real;
begin
writeln('Введите a и b');
readln (a,b);
if (a<0) or (b<0)or (a<>1)
then writeln('Решения нет')
else
begin
c:=ln(b)/ln(a);
if a=1 then writeln('Решения нет');
if a>1
then writeln('x>',c)
else writeln('x<',c);
end;
end.
Вот математическая модель (это для a^x>b,а мне нужно a^x<b):
Для решения показательного неравенства a^x>b приведем его к виду a^x>a^c. Тогда: если a>1, то x>c, если 0<a<1, то x<c.

ОДЗ: a>0,b>0,a≠1
Выразим b как степень числа a: b=a^log_a⁡b
Обозначим: 〖с=log〗_a⁡b
Получим: a^x>a^с
Если a>1, то x>c, если 0<a<1, то x<c.

Итак, для решения задачи нам нужно:
Знать значения a и b, то есть ввести их с клавиатуры;
Проверить ОДЗ
Найти с, то есть вычислить 〖с=log〗_a⁡b
Решить неравенство.