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

(Паскаль)​

Ответ:

var

 x, y: Double;

begin

 Write ('X = ');

 ReadLn (x);

 if x < -2 then

   y := Abs (x) + 2

 else if x > 2 then

   y := x + 1

 else

   y := 1;

 WriteLn ('Y = ', y);

 ReadLn;

end.