Решение задачи №12

Решение задачи №12 из главы 6

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

var
a,b,c:integer;//числа
b1, b2:boolean;//для хранения результатов проверок


begin
   write('Vvedite  chislo A, B, C: ');
   read(a, b, c);//читаем переменные списком
   readln();//удерживаем консоль после ввода переменных А, В, С
   b1:=(A > B) and (A < C);
   b2:=(A > C) and (A < B);
   writeln('Chislo A nahoditsia mehdu chislami В и С -', b1 or b2);
   readln();
end.