Урок 6 Задача 12

Урок 6 Задача 12

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

var a,b,c:integer;
  b1:boolean;
  b2: boolean;


begin
  readln(a,b,c);
  b1:=(a>b)and (a<c);
  b2:=(a>c) and (a<b);
  writeln(b1 or b2);
  readln();
  end.                   

Консоль:

12 11 13
TRUE