{Пусть даны два файла целых чисел. Определите, больше ли минимальное значение
 первого файла, чем максимальное значение второго.}

program Laba9;

var
  a, max, min: integer;
  f1, f2: text;

begin
  min := MaxInt;
  max := -MaxInt;

  assign(f1, 'in1.txt');
  reset(f1);
  while(not (eof(f1))) do
  begin
    readln(f1, a);
    if a < min  then
      min := a;
  end;
  close(f1);

  assign(f2, 'in2.txt');
  reset(f2);
  while(not (eof(f2))) do
  begin
    readln(f2, a);
    if a > max then
      max := a;
  end;
  close(f2);

  if min > max then
    writeln('Больше')
  else
    writeln('Не больше');
end.