Для данного 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.