{* Задача 432 *}

Unit ZADACH432;
Interface
Implementation
Begin
 writeln('Вычислить значение выражения по формуле (все переменные принимают вещественные значения):

');
End.

Program zadach432;

Uses zadach432.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  x : real;
  y : real;
Begin
  Writeln('введите х');
  readln(x);
  y := x - 10 * sin(x) + ABS(x * x*x * x-x * x*x * x*x);
  Writeln(y : 3:3);
  Readln; {* Приостановка программы. Ожидание Enter *}
End.