урок 6 задача 12

урок 6 задача 12

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

program B5;

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

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