Программа

Program Pilshikov_5_47 (input,output);
{ Найти все целые корни ур-я
  a*X^3+b*X^2+c*X+d=0,
  где a, b, c, d - заданные целые,
  a<>0, d<>0 }
Var a,b,c,d,X:integer;
    SolutionFlag:boolean;
BEGIN
  Write('Введите a ');
  Readln(a);
  Write('Введите b ');
  Readln(b);
  Write('Введите c ');
  Readln(c);
  Write('Введите d ');
  Readln(d);
  SolutionFlag:=false;
  for X:=-abs(d) to abs(d) do
    if X<>0 then
      if d mod X =0 then if ((a*X+b)*X+c)*X+d=0 then begin
                                                       Writeln('X=',X);
                                                       SolutionFlag:=true
                                                     end;
  if not SolutionFlag then Writeln('Целых корней нет')
END.