у= 1+х

(х*х)-9

Ответы:

var x,y: real,

begin

clrscr,

readln(x),

if (x&lt,&gt,3) and (x&lt,&gt,-3) then y:=(1+x) / (x*x-9) else

writeln(Х не подходит по ОДЗ, в знаменателе 0),

writeln(y),

end.