Решение задачи №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.