program lr8;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

var
x,ab,y1,y2:real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
write('enter X: ');
readln(x);
ab:=abs(x);

if ab>=2 then begin writeln('X is in (-inf; -2]v[2; +inf)'); y1:=ab-2 end else
if ab>=1 then begin writeln('X is in (-2; -1]v[1; 2)'); y1:=abs(2-x) end else
begin
writeln('X is in (-1; -1)'); y1:=1;
end;


if ab>=2 then begin writeln('X is in (-inf; -2]v[2; +inf)'); y1:=ab-2 end;
if (ab>=1) and (not ab>=2) then begin writeln('X is in (-2; -1]v[1; 2)'); y1:=abs(2-x) end;
if (ab<1) then begin writeln('X is in (-1; -1)'); y1:=1; end;

writeln('Y1 = ',y1:5:2);



readln;

end.