Ввести любое значение х,если он меньше либо равен 0,то у равен 5х^5-sinx в паскале надо решить

Var x,y: real;
begin
read(x);
if x>=0 then
begin
y:=5*sqr(x)*sqr(x)*x-sin(x);
writeln(y);
end;
end.