Blame lazarus/console/box-and-hole/boxandhole.lpr

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