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

Пользователь вводит четыре числа, проверьте, что первое больше третьего и при этом одновременно второе меньше четвертого.

var
    A, B, C, D: integer;
    E: boolean;
begin
    writeln ('Dany chisla A, B, C, D: ont');
    writeln ('Dano uslovie: A > C AND B < D');
    writeln ('Vvedite celye chisla');
    readln (A, B, C, D);
    E := (A > C) AND (B < D);
    writeln (E);
    readln ();
end.