Var
a, b, c, n: real;
begin
Write('Введите длину стороны отверстия: '); Readln(n);
Write('Введите длины сторон кирпича: '); Readln(a, b, c);
if (a < n) or (b < n) or (c < n) then Writeln('Кирпич пройдет в отверстие')
else Writeln('Кирпич не пройдет в отверстие')
end.
Тестовое решение:
Введите длину стороны отверстия: 8
Введите длины сторон кирпича: 12 6.5 25
Кирпич пройдет в отверстие