Олимпиадная задача про орехи - Free Pascal

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

Белка Бонифатий собирается спрятать орехи в тайнике на зиму. Для сохранности орехов он хочет воспользоваться древним обрядом нордов и разложить вокруг тайника несколько камней. В обряде можно использовать от 1 до 100 камней, при этом влияние обряда на целостность орехов зависит от количества камней, оно может быть положительным, нулевым или вовсе отрицательным. Если точней, влияние выражается целым числом и равняется ax3 +bx2 +cx+d, где x — количество разложенных камней. Так как Бонифатий заинтересован в сохранности своих орехов, ему интересно знать, сколько существует различных значений x, при которых это влияние будет положительным. Помогите ему.

Формат входных данных

В единственной строке расположены четыре числа a,b,c и d (−200 ⩽ a,b,c,d ⩽ 200).

Формат выходных данных

Выведите количество значений x от 1 до 100 таких, что ax3 + bx2 + cx + d > 0. Примеры: тест 1 -53 152 -100 ответ 50 Пояснение к примеру В примере влияние обряда равняется x3 −53x2 + 152x−100 = (x−1)(x−2)(x−50), оно будет больше нуля при x от 51 до 100.

Решение задачи: «Олимпиадная задача про орехи»

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

var
a,b,c,d,x,k:integer;
begin
readln(a,b,c,d);
for x:=1 to 100 do
if a*x*x*x+b*x*x+c*x+d>0 then inc(k);
writeln(k);
end.

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

В коде используется язык программирования Free Pascal.
Задача заключается в подсчете количества положительных значений выражения в цикле от 1 до 100.
В начале кода вводятся значения переменных a, b, c, d с помощью функции readln().
Переменная x инициализируется значением 1 и используется в цикле for от 1 до 100.
Внутри цикла проверяется, является ли выражение axxx+bxx+cx+d больше нуля.
Если это условие выполняется, то значение переменной k увеличивается на 1.
После завершения цикла выводится значение переменной k с помощью функции writeln().