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;
function SetValue(IputType : string) : double;
   begin
      IsCorrect:= false;
      repeat
        Writeln('Введите ',IputType);
        try
          readln(Result);
          if Result > 0 then
            IsCorrect := true
          else
            Writeln('Введённое значение дожно быть положительным числом')
        except
          Writeln('Введённое значение дожно быть положительным числом')
        end;
      until IsCorrect;
   end;

begin
      WallX :=SetValue('длину отверстия');
      WallZ :=SetValue('высоту отверстия');
      BrickX :=SetValue('длину кирпича');
      BrickY :=SetValue('ширину кирпича');
      BrickZ :=SetValue('высоту кирпича');
      Delta[0,0] :=  WallX -  BrickX;
      Delta[0,1] :=  WallX - BrickY;
      Delta[0,2] :=  WallX -  BrickZ;
      Delta[1,0] :=  WallZ -  BrickX;
      Delta[1,1] :=  WallZ -  BrickY;
      Delta[1,2] :=  WallZ -  BrickZ;
      IsCorrect :=false;
      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.