Напечатать таблицу значений функции y= 2x^3 - 0,5x+5 решите плез, надо . pascalabc

var x,y,a,b,h:real; i:integer;
begin
readln(a,b,h);
x:=a-h;
for i:=1 to round((b-a)/h)+1 do
begin
x:=x+h;
y:=2*x*x*x-0.5*x+5;
writeln(x:4:1,' ',y:6:3);
end;
end.

Пример:
-2 2 0.5
-2.0 -10.000
-1.5 -1.000
-1.0 3.500
-0.5 5.000
 0.0 5.000
 0.5 5.000
 1.0 6.500
 1.5 11.000
 2.0 20.000