Найти максимальное и среднее значение функции y=71x-43x^3 на отрезке[4; 14] шагом 1

var
  x,y,max,s,n:longint;
  avg:real;
begin
  max:=4*(71-43*sqr(4));
  n:=1; s:=max;
  for x:=5 to 14 do
  begin
    Inc(n); y:=x*(71-43*sqr(x)); s:=s+y;
    if max<y then max:=y
  end;
  avg:=s/n;
  Writeln('Максимальное значение: ',max);
  Writeln('Среднее значение: ',avg:0:3)
end.

Результат выполнения программы:
Максимальное значение: -2468
Среднее значение: -42318.000