Question

Написать программу Pascal

Answer 1

===== PascalABC.NET =====

begin

 var x := ReadReal('x =');

 Write('f(', x, ') = ', x * x - ((x> 0) and (x <= 1) ? x : Sin(x)))

end.