[tex]y = x - 10 sin : x + x^4

Для градусов:
program n_1;
uses math;
var x, y:real;
begin
readln(x);
y:=x-10*sin(x*Pi/180)+абс(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)+абс(Power(x, 4)-Power(x, 5));
writeln(y:0:10);
end.