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

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

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

program zadacha3;
 var a, b, c : integer;       //объявляем переменные
     d1, d2 : boolean;
   begin
     a:=10;
     b:=1;
     c:=20;  //начинаем проверку условий
     d1:= (a>b) and (a<c);   //cитуация B<A<C
     d2:= (a>c) and (a<b);   //ситуация C<A<B
      if (d1 or d2)=true then        //проверяем положение А
       writeln('da')
      else 
       writeln('net');
     readln();
   end.