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

var a,b,c,x,y:real;beginwrite('Введите 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.