var
x,y:real
begin
write('x:');
readln(x);
if x<=(-5) then y:=8*x+1;
if (-5)<x<(-1) then y:=1/x;
if x>=(-1) then y:=abs(x-2);
writeln('Значение функции равно:',y);
end.
var
x,y:real
begin
write('x:');
readln(x);
if x<=(-5) then y:=8*x+1;
if (-5)<x<(-1) then y:=1/x;
if x>=(-1) then y:=abs(x-2);
writeln('Значение функции равно:',y);
end.