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

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

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

var a, b, c: integer;
    b1, b2: boolean;
begin
    a := 2;
    b := 4;
    c := 6;
    b1 := (A > B) AND (A < C);
    b2 := (B > A) AND (A > C);

    if (b1 or b2) then
        writeln('da')
    else
        writeln('net');

    readln();
end. 

КОНСОЛЬ:

net