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

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
  end
end.

Тестовое решение:
Введите через пробел коэффициенты 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