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

http://fkn.ktu10.com/?q=node/8539
{Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.}

var a,b,c:integer; // переменные для хранения чисел которые будем сравнивать
    a1, a2: boolean; // для хранения результатов

begin
     writeln('Enter three numbers :'); // числа которые вводит пользователь
     readln(a,b,c);
     a1 := (a>b) and (a<c);
     a2 := (a>c) and (a<b);

     if ( a1 or a2 ) then // условие
          writeln('Yes') // если да
     else
          writeln('No'); // если нет

     readln();

end.  

var a,b,c:integer; // переменные для хранения чисел которые будем сравнивать

begin
     writeln('Enter three numbers :'); // числа которые вводит пользователь
     readln(a,b,c);

     if ((a>b) and (a<c) or (a>c) and (a<b)) then // условие
          writeln('Yes') // если да
     else
          writeln('No'); // если нет

     readln();

end.