// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var x := ReadReal('x=');
var y: real;
if x < 0 then y := x * x - 3 - (Pi - x) ** (1 / 3)
else
if x < 1 then y := Sqr(x * x + 3) - Sqrt(0.5 * Pi + x)
else y := x * (x * x + 3) + Ln(Pi + x);
Println('y =', y)
end.