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 и С тоже проходят значит пройдет и так несколько условий. для каждой стороны получаеться
