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.
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.