{8x+1, если x≤-5y={1/x, если -5 {|x-2|, если x≥-1
var
x,y:real
begin
write('x:');
readln(x);
if x
if (-5)
if x>=(-1) then y:=abs(x-2);
writeln('Значение функции равно:',y);
end.
Можете выводить y по-своему, если хотите
ок