Помогите решить в паскале 13 задание
//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