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

program iksiki;

var x,y:real;

begin

    writeln('x?');

    readln(x);

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

     else if абс(x)gt;=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.

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