Найти максимальное и среднее значение функции 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