Паскаль. вычислить значение функции заданной в виде графика. разветвляющийся алгоритм​

// PascalABC.NET

var

 x, y: real;

Begin

WriteLn('Введите значение X');

ReadLn(x);

if (abs(x) > 2) then

  y := 1

else if ((abs(x) <= 2) and (abs(x) > 1)) then

  y := abs(x)

else

  y := sqrt(1 - x*x);

WriteLn('f(x) = ', y);

End.