Question

Напишите программу на паскале

Answer 1

uses Math;

var x, y : integer;

begin

readln(x);

if x < -2 then

   y := abs(x) + 2

else if (x >= -2) and (x <= 2) then

   y := 1

else if x > 2 then

   y := x + 1;

writeln(y);

end.