Решить систему в Pascal

Татьяна, это не система и это не решают. Это функция, вычисление которой надо запрограммировать. Зачем вас учат программированию, не обучив даже началам алгебры - что такое уравнение и что такое функция?

var a,b,x,y:real;
begin
write('a b x ? '); readln(a,b,x);
if(x>0)and(x<5)then y:=b*sin(sqr(a*x));
if(x< 0)and(x*x>=-b)then y:=sqrt(x*x+b);
if x>5 then begin y:=sin(x+a); y:=y*y*y/x end;
if(x=0)or(x=5)then writeln('No defined!') else writeln(y);
readln
end.