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

Даны три целых числа: A
, B
, C
. Проверить истинность высказывания: « Число A
и число B
больше 17, а C
> 7».

 var
    A, B, C: integer;
    D: boolean;
begin
    A := 20;
    B := 19;
    C := 6;
    D := (A AND B > 17) AND C > 7;
    writeln ('chislo A y B > 17, cislo C>7');
    writeln (D);
    readln ();
end.

Вернёт false, так какак две части утверждения при конъюнкции противоречат друг другу.