Урок 9 Задача 5

Урок 9 Задача 5:

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

var a, b, c: integer;
begin
  {Пользователь по очереди вводит, а программа по очереди считывает три числа}
  write('Введите число A: ');
  readln(a);
  write('Введите число B: ');
  readln(b);
  write('Введите число C: ');
  readln(c);
  {Далее следует условие, по которому а находится между b и с.
   Это может быть так: b, a, c ИЛИ так: c, a, b.
   В первом случае a должно быть больше, чем b И меньше, чем с.
   Во втором случае а должно быть больше, чем с И меньше, чем b}
  if ((b < a) and (a < c)) or ((c < a) and (a < b)) then
    writeln('Да')// вывод на экран, если условие верно
  else
    writeln('Нет'); // вывод на экран, если условие неверно
  readln();
end.

Вывод консоли:

Введите число A: 65
Введите число B: 5
Введите число C: 79
Да