Имеется прямоугольное отверстие со сторонами a и b и кирпич с рёбрами x, y z. Требуется составить условие прохождения кирпича в отверстие. (Программный код нужно писать в Паскале)

program zz1;

var a, b, d, x, y, z:integer; / / задаем переменные целого типа

begin

write (' введите первую сторону кирпича число ');

read (x);

write (' введите вторую сторону кирпича ');

read (y);

write (' введите третью сторону кирпича ');

read (z);

write (' введите первую сторону отверстия ');

read (a);

write (' введите вторую сторону отверстия ');

read (b);

if ((x<=b) and (y<=a)) or ((y<=b) and (x<=a)) then d:=1;

if ((z<=b) and (y<=a)) or ((y<=b) and (z<=a)) then d:=1;

if ((x<=b) and (z<=a)) or ((z<=b) and (x<=a)) then d:=1;

if d = 1 then writeln (' кирпич пройдет ') / / выводим ответ

else write (' кирпич не пройдет ');

end.