Brick Delphi

program Brick;


uses
  System.SysUtils;

  Var
    XOfBrick, YOfBrick, ZOfBrick : Integer;
    XOfHole, YOfHole : Integer;
    IsCan, IsWork : Boolean;

begin
    Writeln('Введите ширину отверстия');

    repeat
        IsWork := True;
        try
            Readln(XOfHole);
        except
            Writeln('Вводите, пожалйста, целые числа');
            IsWork := False;
        end;
    until IsWork;


    Writeln('Введите высоту отверстия');
    repeat
        IsWork := True;
        try
            Readln(YOfHole);
        except
            Writeln('Вводите, пожалйста, целые числа');
            IsWork := False;
        end;
    until IsWork;


    Writeln('Введите ширину кирпича');
    repeat
        IsWork := True;
        try
            Readln(XOfBrick);
        except
            Writeln('Вводите, пожалйста, целые числа');
            IsWork := False;
        end;
    until IsWork;


    Writeln('Введите высоту кирпича');
    repeat
        IsWork := True;
        try
            Readln(YOfBrick);
        except
            Writeln('Вводите, пожалйста, целые числа');
            IsWork := False;
        end;
    until IsWork;


    Writeln('Введите глубину кирпича');
    repeat
        IsWork := True;
        try
            Readln(ZOfBrick);
        except
            Writeln('Вводите, пожалйста, целые числа');
            IsWork := False;
        end;
    until IsWork;

    If((((XOfBrick = XOfHole) or (XOfBrick < XOfHole)) and ((YOfBrick = YOfHole) or (YOfBrick < YOfHole))) or (((XOfBrick = YOfHole) or (XOfBrick < YOfHole)) and ((YOfBrick = XOfHole) or (YOfBrick < XOfHole)))) Then
    Begin
        IsCan := True;
    End
    Else
    Begin
        IF((((XOfBrick = XOfHole) or (XOfBrick < XOfHole)) and ((ZOfBrick = YOfHole) or (ZOfBrick < YOfHole))) or (((XOfBrick = YOfHole) or (XOfBrick < YOfHole)) and ((ZOfBrick = XOfHole) or (ZOfBrick < XOfHole)))) Then
        Begin
            IsCan:= True;
        End
        Else
        Begin
            If((((YOfBrick = XOfHole) or (YOfBrick < XOfHole)) and ((ZOfBrick = YOfHole) or (ZOfBrick < YOfHole))) or (((YOfBrick = YOfHole) or (YOfBrick < YOfHole)) and ((ZOfBrick = XOfHole) or (ZOfBrick < XOfHole)))) Then
            Begin
                IsCan:=True;
            End;
        End;
    End;

    If (IsCan) Then
    Begin
        Writeln('Кирпич пролезет');
    End
    Else
    Begin
        Writeln('Кирпич не пролезет');
    End;

    Readln;
end.