Задачка- в стенке существует квадратное отверстие n*n см. и кирпич с

Var
  a, b, c, n: real;

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

Тестовое решение:
Введите длину стороны отверстия: 8
Введите длины сторон кирпича: 12 6.5 25
Кирпич пройдет в отверстие