Ответ:

program Calc2;

uses

Math;

var

x, y: Real;

begin

Write ('X = ');

ReadLn (x);

y := x - 10 * Sin (x) + Abs (Power (x, 4) - Power (x, 5));

WriteLn ('Результат = ', y);

ReadLn;

end.

Объяснение:

Ответ:

Это его ответь напиши так