Вычислить значения функции y= x^2+x+5 , если x изменяется от -20 до 20 с шагом 0,5. Помогите!

var     x0, xk, dx, x: real; function f(x: real): real; begin     f := x * x + x + 5; end; begin     write('Введите промежуток и шаг ([a,b] h) ');     readln(x0, xk, dx);          x := x0;     writeln(' x ':10, ' | ', ' f(x) ':10);          repeat         writeln(x:10:3, ' | ', f(x):10:3);         x := x + dx;     until x > xk; end.