Составе программу которая определяет принадлежит ли введенное целое число x интервалу (10,20), и выводит на экран соответствующие сообщение : "принадлежит " либо " не принадлежит "

Как понимаю, числа 10 и 20 в интервал не входят, учитывая круглые скобки. Тогда так.

ОТДЕЛ Задание+;

ИСПОЛЬЗУЕТ Приём, Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  число: ЦЕЛ;

УКАЗ
  число := Приём.Число();
  ЕСЛИ число > 10 И число < 20 ТО
    Вывод.Цепь("^Принадлежит.")
  ИНАЧЕ
    Вывод.Цепь("^Не принадлежит.")
  КОН

КОН Задание.