Вычеслите значение функции в паскале:9 пример

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

begin

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

 var fx := x * x - ((x >= 0) and (x <- 1) ? x : Sin(Pi * x * x));

 Write(fx)

end.