Помогите написать подпрограмму f(x), которая вычисляет значение по следующей формуле: f(x)=x^3 - sinx. Построить таблицу значений функций для отрезка [a;b]
с шагом h. НА ПАСКАЛЕ

function f(x: real): real;begin  f := x * sqr(x) - sin(x)end;var  a, b, h, x: real;begin  Write('Введите через пробел a,b,h: ');  Readln(a, b, h);  x := a;  while x <= b do  begin    Writeln('x=', x:0:3, ', f(x)=', f(x):0:5);    x := x + h  endend.