(Паскаль) пожалуйста решите и скиньте пожалуйста свою соц сеть, у меня ещё есть несколько задач! Завтра зачёт а я не очень готов, добрые люди помогите

var f,x: real;

begin

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

readln(x);

if x<=-9 then

f:=-sqr(x)-1.1*x+9

else

f:=(ln(x+3))/(sqr(x)+9);

writeln(f);

end.