Для данного x вычислить значение функции:Pascal

Спасибо! случайно нарушение отметил

var x,y:real;begin write('vvedite x '); readln(x);if (x>1) then y:=x*x*x-x else y:=x*x*x-sin(x);writeln('znachenie functsii=',y)end.