Y=0,5+√x2+1-tg2(x2+1), найти среднее арифметическое отрицательных значений функции . Исходные данные xmin- 1,5, xmax-2,3,∆x-0,1

1. const
2.  xMin    = 1.5;
3.  xMax    = 2.3;
4.  xDelta  = 0.1;
5. var
6.  x, y, resultSum: real;
7.  valueOfIt: integer;
8. begin
9.  x := xMin;
10.  while x <= xMax do
11.    begin
12.      y := 0.5 + Sqrt(Power(x, 2.0) + 1) - Power(Tan(Power(x, 2.0) + 1), 2.0);
13.      if (y < 0) then
14.        resultSum := resultSum + y;
15.      x := x + xDelta;
16.      valueOfIt := valueOfIt + 1;
17.    end;
18.  Writeln('Среднее отрицательных значений: ', resultSum / valueOfIt);
19. end.

Среднее отрицательных значений: -12.7547010184892