Program PoiskInt;           {Название программы}
uses Crt;                        {Подключаем модуль (для очистки экрана)}
const n=100;                  {Постоянная}
var x, Rez: longint;          {Аргумент и результат}

begin                            {Начало программы}
ClrScr;                          {Очистка экрана (именно для этого вызывался Crt)}
for x:= -n to n do            {Цикл поиска}
  begin
  Rez:=sqr(sqr(x))-sqr(x)*x -x-10;    {Вычисление очередного значения функции}
  if Rez=0 then                          {Сравнение с нулем}
  Writeln('Rez=',Rez) else           {Вывод результата}
  WriteLn('Не найден');
  end;
ReadLn;                           {Ожидание нажатия на клавишу ENTER  }
end.                                  {Конец программы}