Найдите все целые решения уравнения на отрезке [0,1000] и выведите их в порядке возрастания - Turbo Pascal

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

Вводятся 4 числа: a, b, c и d. Найдите все целые решения уравнения ax³ + bx² + cx + d = 0 на отрезке [0,1000] и выведите их в порядке возрастания. Если на данном отрезке нет ни одного решения, то ничего выводить не нужно.

Решение задачи: «Найдите все целые решения уравнения на отрезке [0,1000] и выведите их в порядке возрастания»

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

var
  a,b,c,d:real;
  x:integer;
begin
  write('a,b,c,d=');readln(a,b,c,d);
  for x:=0 to 1000 do 
    if abs(a*x*x*x+b*x*x+c*x+d)<=1e-7 then writeln(x);
end.

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

В данном коде происходит следующее:

Объявляются переменные a, b, c, d типа real.
Затем объявляется переменная x типа integer.
Далее выполняется чтение значений переменных a, b, c, d с помощью функции readln().
Затем идет цикл for, который выполняется от 0 до 1000 (включительно).
Внутри цикла проверяется условие: если абсолютное значение выражения axxx + bxx + cx + d меньше или равно 1e-7, то значение x считается целым решением уравнения и выводится на экран с помощью функции writeln().
После завершения цикла все найденные целые решения выводятся в порядке возрастания. Таким образом, данный код находит все целые решения уравнения на отрезке [0,1000] и выводит их в порядке возрастания.