Помогите решить в паскале 13 задание

Question

Помогите решить в паскале 13 задание

---

Answer 1

//PascalABC.NET 3.2 сборка 1318

Var
  x:real;
begin
readln(x);
if x>3 then writeln(-3*x+9) else writeln(power(x,3)/(sqr(x)+8));
end.

Пример ввода:
-1
Пример вывода:
-0.111111111111111