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

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

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

var A, B, C : integer;
bool: boolean;
begin
  writeln ('enter the first number');
  readln(A);
  writeln ('enter the second number');
  readln(B);
  writeln ('enter the third number');
  readln(C);
  if ((A>B) and (A<C)) or ((A<B) and (A>C)) then
        bool := True;
        writeln (bool);
  readln();
end.