Решение задачи №3 из главы 9

Задача №3 из главы 9

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

var a, b, c: integer; // секция объявления переменных
begin  // начало тела программы
    writeln('vvedite cislo A');
    readln(a);
    writeln('vvedite cislo B');
    readln(b);
    writeln('vvedite cislo C');
    readln(c);
    if ((A > B) and (A < C)) or ((A > C) and (A < B)) then // если истина
      writeln('da')
    else
      writeln('net');// если ложно
    readln(); // удерживаем консоль
end. // конец тела программы