Составить программу вычисления значений квадратичной функции на заданном интервале

var  a,b,c,p,q,h,x,y:real;begin  Write('Введите через пробел коэффициенты a,b,c: ');  Read(a,b,c);  Write('Введите через пробел границы интервала [p;q]: ');  Read(p,q);  Write('Введите шаг табуляции h: ');  Read(h);  x:=p;  while x<=q+h/10 do begin    y:=c+x*(b+x*a); { схема Горнера для вычисления значения полиномов }    Writeln(x:15:8,y:15:8);    x:=x+h  endend.Тестовое решение:Введите через пробел коэффициенты a,b,c: -4 2.7 10.582Введите через пробел границы интервала [p;q]: -3 2.5Введите шаг табуляции h: 0.25    -3.00000000   -33.51800000    -2.75000000   -27.09300000    -2.50000000   -21.16800000    -2.25000000   -15.74300000    -2.00000000   -10.81800000    -1.75000000    -6.39300000    -1.50000000    -2.46800000    -1.25000000     0.95700000    -1.00000000     3.88200000    -0.75000000     6.30700000    -0.50000000     8.23200000    -0.25000000     9.65700000     0.00000000    10.58200000     0.25000000    11.00700000     0.50000000    10.93200000     0.75000000    10.35700000     1.00000000     9.28200000     1.25000000     7.70700000     1.50000000     5.63200000     1.75000000     3.05700000     2.00000000    -0.01800000     2.25000000    -3.59300000     2.50000000    -7.66800000