Дана функция y=3.5*x*x*x*x*x-8.2*x*x*x*x+x*x*x-12. Вычислить значения функции на промежутке [32;-16] с шагом -1 и найти количество таких значений функции,ю которые отличаются от минимального значения на заданную величину m.

Это первая часть задания :

uses crt;
Const Stepp = -1;
var x1,x2 : integer;
begin
Clrscr;
x1 := 32;
x2 := -16;
while x1 >= x2 do
 begin
    writeln ('When x = ',x1,' y = ',(3.5 * Sqr ( x1 ) * Sqr ( x1 ) * x1 - 8.2 * Sqr(x1) * Sqr(x1) + Sqr(x1) * x1 - 12):0:2);
    x1 := X1 + Stepp;
 end;
readkey;
end.

а как на счет Поиска?

Товарищ гость 2ю часть задания сможете сами решить ?