Помогите решить ** языке Паскаль

Question

Помогите решить на языке Паскаль

---

Answer 1

Ответ:

var a,x,y: real;

begin

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

readln(a,x);

if (x

else if (x

else y:=sqrt(abs(sin(a*x)));

writeln('y = ',y);

end.