var real begin write Введите значение readln if -4 and -2 then write e

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
var x, r: real;
begin
write('Введите значение x= ');
readln(x);
if (x >= -4) and (x < -2) then write('y=', x + 3) else
if (x >= -2) and (x < 4) then write('y=', -(x / 2)) else
if (x >= 4) and (x < 6) then write('y=', -2) else
if (x >= 6) and (x <= 10) then write('y=', sqrt(4 - sqr(x - 8)) - 2:0:3)
else write('Вы ввели неправильное значение x');
end.