Ответ:

program F(x);

var x, y:real;

begin

 write('Введите x: ');

 readln(x);

 if x>3 then

   y:=(sin(x))/(sqr(x)-9)

 else

 y:=sqr(x)+3*x+9;

 writeln('F(x)= ',y);

end.