Question

Составить программу для вычисления функции.
y={x^2,если х>0
-х^2, иначе.
Помгите, пожалуйста, очень срочно

Answer 1

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

begin

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

 Print('y =', x * x * Sign(x))

end.