Выяснить, пройдёт ли кирпич с рёбрами a, b, c в квадратное отверстие со стороной x.

Program help;
Uses Crt;
Var a, b, c, x : Byte;

Begin
Write('Введи a, b, c, x: ');
Readln(a, b, c, x);

If ((a <= x) and (b <= x)) or ((a <= x) and (c <= x)) or ((b <= x) and (c <= x)) then
Write('Пролезет')
Else
Write('Не пролезет');
End.

Там надо составить несколько условий для прохода этого кирпича в отверстие. Т.е. если сторона  A проходит в это отверстие и если стороны B и С тоже проходят значит пройдет и так несколько условий. для каждой стороны получаеться