Задача 12 Урок 6

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

var
    A, B, C: integer;
    D: boolean;
begin
    A := 5;
    B := 1;
    C := 7;
    D := (B < A) AND (A < C);
    writeln ('chislo A nahoditsi mejdu B y C');
    writeln (D);
    readln ();
end.

Возвращает True