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

program iksiki;

var x,y:real;

begin

    writeln('x?');

    readln(x);

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

     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.

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