Определить значения функции y=x{3} -5 на отрезке от a до b с шагом c

Var a,b,c,x,y:real;
begin
write('Введите a, b, c: ');
readln(a,b,c);
x:=a;
while x<=b do
  begin
  y:=power(x,3)-5;
  writeln('x=',x,'; y=',y);
  x:=x+c;
  end;
end.