Задача 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
2
1
1
FALSE
net