PascalABC.NET
begin
var x := ReadReal('x =');
var y: real;
if x < -2 then
y := 3 * x *x - 8
else if x <= 4 then
y := -9 * x * x - 12
else
y := 32 + x;
Print(y)
end.
