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

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

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

program D3;

var
  a, b, c: integer;
  e1, e2: boolean;

begin
  write('Введите число A, B, C: ');
  readln(a, b, c);

  e1 := (a > b) and (a < c);
  e2 := (a > c) and (a < b);
  writeln('Число A находится между числами B и C - ', e1 or e2);

 readln();
end.

Консоль:

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