Решение задачи №14

Решение задачи №14 из главы 6

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

var
a,b,c,d:integer;//числа
b1:boolean;//для хранения результатов проверок

begin
   write('Vvedite  chislo A, B, C, D: ');
   read(a, b, c, d);//читаем переменные списком
   readln();//удерживаем консоль после ввода переменных А, В, С
   b1:=(A > C) and (B < D);
   writeln('Rezultat =  ', b1);
   readln();
end.