Ответ:

Объяснение:

var

   x: integer;

   y:real;

begin

   write ('x = ');

   readln (x);

   if x <2 then

       y := x *x- 7

   else

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

           y := x+5  //-------------------- тут не знаю что значит |x+5|

   else if x>1 then

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

   writeln ('y = ', y);

end.