program boxandhole; var a, b, c: integer; x, y: integer; pass: boolean; s: string; begin Writeln('Enter box size (a, b, c):'); Readln(a); Readln(b); Readln(c); Writeln('Enter hole size (x, y):'); Readln(x); Readln(y); pass := false; if (a < x) and (b < y) then pass := true; if (b < x) and (c < y) then pass := true; if (c < x) and (a < y) then pass := true; if (b < x) and (a < y) then pass := true; if (c < x) and (b < y) then pass := true; if (a < x) and (c < y) then pass := true; { or coding conditions in other way: pass := ((a < x) and (b < y)) or ((b < x) and (c < y)) or ((c < x) and (a < y)) or ((b < x) and (a < y)) or ((c < x) and (b < y)) or ((a < x) and (c < y)); } if pass then begin writeln('Will pass trought'); end else begin writeln('Box too large'); end; readln(s); end.