Дано вещественное число x. вычислить значение функции.

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.