Найти среднее арифметическое отрицательных значений функции Y=2 — X2 + 3*Х на отрезке [А,В], вычисляя ее значение на этом отрезке с шагом Н. А=-3, В=5, Н=0,01 — Pascal(Паскаль)

uses crt;
var y,a,b,h,sr:real;
    k:longint;
begin
clrscr;
a:=-3;
b:=5;
h:=0.01;
sr:=0;
while a<b+h do
 begin
  y:=2-a*a+3*a;
  if y<0 then
   begin
    k:=k+1;
    sr:=sr+y;
   end;
  a:=a+h;
 end;
write('sred=',sr/k:0:2);
readln
end.