Вывести значения функции f(x)=X3 — 2×2 -x+2, превышающие среднее арифметическое значений функции, рассчитанной в заданных точках на интервале х принадлежит [-4;5], дельта х=0,5 — Pascal(Паскаль)

Uses
  CRT;

Const
  xn = -4;

var
  x, sum: real;
  kol: integer;

Begin
  x := xn;
  kol := 0;
  sum := 0;
  repeat
    sum := sum + (x * x * x - 2 * x * 2 - x - 2);
    inc(kol);
    x := x + 0.5;
  until x > 5;
  x := xn;
  repeat
    if (x * x * x - 2 * x * 2 - x - 2) > (sum / kol) then
      writeln('x:= ', x:4:1, '; f(x):=', (x * x * x - 2 * x * 2 - x - 2));
    x := x + 0.5;
  until x > 5;
  Readln

End.