8x+1, если x≤-5y={1/x, если -5 {|x-2|, если x≥-1

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.