Программа на языке Паскаль для решения неравенства ax > b может быть написана следующим образом:

pascal

program solve_inequality;



var

  a, b, x: real;



begin

  write('Введите значение a: ');

  readln(a);

  

  write('Введите значение b: ');

  readln(b);

  

  if a = 0 then

  begin

    if b = 0 then

      writeln('Бесконечное множество решений')

    else

      writeln('Нет решений');

  end

  else if a > 0 then

  begin

    x := b / a;

    writeln('Решением неравенства ', a, 'x > ', b, ' являются x > ', x);

  end

  else

  begin

    x := b / a;

    writeln('Решением неравенства ', a, 'x > ', b, ' являются x < ', x);

  end;

end.

Программа сначала запрашивает у пользователя значения a и b, затем использует конструкцию условного оператора if для проверки различных случаев. Если a равно нулю, то происходит дополнительная проверка значения b. Если b также равно нулю, то выводится сообщение "Бесконечное множество решений", так как при любом значении x будет выполняться неравенство 0 > 0. Если значение b не равно нулю при a = 0, то выводится сообщение "Нет решений", так как 0 > b не выполняется ни при каком значении x. Если a больше нуля, то решением неравенства ax > b будет неравенство x > b / a. Если a меньше нуля, то решением неравенства ax > b будет неравенство x < b / a. Программа выводит результат на экран, указывая полученное решение для x в зависимости от значения a и b.