Ответ:

var a,y:real;

begin

  a:=sqrt(5*y*y+3*y+10)/(y-5);

 readln(y);

 if y>=-30 then

 if ((5*y*y+3*y+10)>=0) and ((y-5)<>0) then

   writeln('a',' ','=',' ',a)

 else writeln('Для данного y функция не определена');

end.