Найдите все целые решения уравнения

[vadiprog]

Вводятся 5 чисел: a, b, c, d и e.
Найдите все целые решения уравнения ( ax3 + bx2 + cx + d ) / ( x - e ) = 0 на отрезке [0,1000] и выведите их количество.

x это счётчик, числа возле букв это степень

var i,a,b,c,d,e,s:integer;
begin
readln(a);
readln(b);
readln(c);
readln(d);
readln(e);
s:=0;
for i:=0 to 1000 do begin
if (a*i*i*i+b*i*i+c*i+d)/(i-e)=0 then s:=s+1;
end;
writeln(s);
readln;
end.

вот что я написал но прга не работает на наборе:
1
-2
1
0
1
потомучто в знаменателе 0 получается

[IT-man]

if ((i<>e) then 
if (a*i*i*i+b*i*i+c*i+d)/(i-e)=0 then s:=s+1;

[val_nnm]

Или как вариант, можно ещё упростить

if (i<>e) then 
  if (a*i*i*i+b*i*i+c*i+d)=0 then s:=s+1;

т.к. дробь даст ноль только в случае если числитель равен 0 а знаменатель неравен 0.