Для произвольных значений аргументов вычислить значение функцииПрограмма ** языке паскаль

Question

Для произвольных значений аргументов вычислить значение функцииПрограмма на языке паскаль

---

Answer 1

program iksiki;

var x,y:real;

begin

    writeln('x?');

    readln(x);

    if abs(x)<3 then y:=(x-2*x)/(x*x-1)</p>

     else if abs(x)>=9 then y:=sqrt(x*x-1)-sqrt(x*x+5)

      else y:=sqrt(x*x+1)/sqrt(x*x+5);

    write('y=',y);

end.

{Немного вложенных ифов и готово, и немного того, что в паскале нет оператора возведения в степень}