РЕШИТЬ ЗАДАЧУ НА ПАСКАЛЕ! Даны три целых числа a, b и c. Вывести TRUE, когда a находится на отрезке [b, c], и FALSE в противном случае.

begin

 var (a, b, c) := ReadInteger3;

 if (a >= b) and (a <= c) then

   write('TRUE')

 else

   write('FALSE');

end.

Объяснение:

begin  // Начало программы

 var (a, b, c) := ReadInteger3;  // Считываем a, b, c с клавиатуры

 if (a >= b) and (a <= c) then  // Если а принадлежит промежутку [b, c], тогда

   write('TRUE')  // Выводим TRUE

 else  // Иначе

   write('FALSE');  // Выводим FALSE

end. // Конец программы