Составьте программу для вычисления функции

Question

Составьте программу для вычисления функции

---

Answer 1

Var
  x,y:real;
begin
  Read(x);
  if x<=3 then y:=x*x-3*x+9<br>  else y:=1/(x*x*x+6);
  Write(y)
end.