Question

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

Answer 1

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