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

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта и следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

var A, B, C: integer;
    b1, b2: boolean;
begin
  writeln('Введите числа A, B, C: ');
  readln(A, B, C);
  b1:=((A>B) and (A<C));
  b2:=((A<B) and (A>C));
  writeln('Число A находится между числами B и C - ', b1 or b2);
  readln();
end.                   

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

Введите числа A, B, C:
8
6
9
Число A находится между числами B и C - TRUE

Введите числа A, B, C:
5
6
7
Число A находится между числами B и C - FALSE