вычислить в паскаль

Для градусов:
program n_1;
uses math;
var x, y:real;
begin
readln(x);
y:=x-10*sin(x*Pi/180)+abs(Power(x, 4)-Power(x, 5));
writeln(y:0:10);
end.
Для радианов:
program n_1;
uses math;
var x, y:real;
begin
readln(x);
y:=x-10*sin(x)+abs(Power(x, 4)-Power(x, 5));
writeln(y:0:10);
end.