Не совсем понимаю как это должно выглядеть для информатики. Но вот программа с этим условием для PascalABCNET: Var x: integer;
Begin
write('Введите число: ');
readln (x);
if (x>=-5) and (x<5)then writeln(x, ' принадлежит промежутку [-5;5)')<br>else writeln(x, ' не принадлежит промежутку [-5;5)')
End.