Очень срочно!!!

найти среднее арифметическое значений функции y=2(x+1) на интервале x1<=x<=x2, где x1=-20, x2=10 при шаге x3=5

Спасибо

Достаточно кнопочки "Спасибо" )

const  x1 = -20;  x2 = 10;  x3 = 5;var  x, s: real;  n: integer;begin  x := x1;  n := 0;  while x <= x2 do  begin    s := s + 2 * (x + 1);    n := n + 1;    x := x + x3  end;  writeln('Среднее арифметическое равно ', s / n)end.Результат работа программы:Среднее арифметическое равно -8