program ex1;

uses
  System.SysUtils;

var
      WallX, WallZ, BrickX,BrickY,BrickZ    : double;
      IsCorrect : Boolean;
      I,J,PositiveCount : integer;
      Delta : array[0..1] of array[0..2] of double;
begin

      for i := 0 to 1 do
      begin
        PositiveCount :=0;
        for j := 0 to 2 do
          if Delta[i,j] >= 0  then
            PositiveCount := PositiveCount +1;

          if PositiveCount >1 then
            IsCorrect := true;
      end;
      if IsCorrect then
        Writeln('Кирпич влезет в отверстие')
      else
        Writeln('Кирпич не влезет в отверстие');
      readln;
end.