Ответ:

var x,y: real;

begin

writeln ('введите х');

readln(x);

if x<-2 then y :=abs(x)+2

                    else if -2 <= x >= 2 then y := 1

                                             else y := x+1;

writeln ('y = ', y);

readln;

end.

Объяснение: