Вычислить значение следующий функции в Паскале

Question

Вычислить значение следующий функции в Паскале

---

Answer 1

var x: real;

begin

   read(x);

   if (x > 13) then

       write(-3/(x + 1):6:3)

   else

       write(x*x*(-x) + 9:6:3)

end.