Найти решение неравенства - Pascal

Формулировка задачи:

Даны действительные числа a и b.Найти решение неравенства a*x<b

Решение задачи: «Найти решение неравенства»

Листинг программы

program Project1;
Var x,a,b:integer;
begin
  write('введите a,b '); readln(a ,b);
  for x:=1 to trunc(b/a) do
   if a*x<b then writeln ('при x=',x,' неравенство верно');
end.

Объяснение кода листинга программы

В этом коде используется цикл от x=1 до trunc(b/a), где a и b — это значения, введенные пользователем. В каждой итерации цикла значение переменной x устанавливается равным i, где i — это текущая итерация цикла. Затем проверяется, является ли неравенство a*x<b истинным. Если это так, то выводится сообщение при x=i неравенство верно. Если неравенство ложно, то цикл продолжается до следующей итерации. Когда цикл завершается, программа заканчивается.