СРОЧНО!!!!Пожалуйста посчитайте решить в паскале

var a,x: real;

begin

writeln('Введите x');

readln(x);

if x<-3 then

begin

writeln('Нет а')

end;

a:=0;

a:= Sin(Sqrt(Sqr(x+3)*x))/(Sqr(x)+1);  

writeln(a);

end.