===== PascalABC.NET =====
begin
var x := ReadReal('x =');
var y := Abs(x * x + (x + 2.5) / (3 * x)) -
3 * Sqrt(Sin(2) - 2 / (1 - x));
Print(y)
end.
