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.
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.