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

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

var
  A,B,C: integer;
  d1,d2,d3: boolean;
begin
     writeln('vvedite A,B,C');
     readln(A,B,C);
     d1:=(A>B)and(A<C);
     d2:=(A>C)and(A<B);
     writeln (d1 or d2);
     begin
          if (d1 or d2) then
          writeln('Da')
     else
          writeln('net')
     end;
     readln();
end.

вывод консоли

vvedite A,B,C
5
7
2
TRUE
Da

вывод консоли

vvedite A,B,C
3
1
2
FALSE
net