Марфа Геннадьевна и часы - 2

program project1;

var
  i,j,N,count: integer;
  f1,f2: text;
  a,b:array[0..100] of integer;
begin
  assign (f1,'input.txt');
  assign(f2,'output.txt');
  reset(f1);
  rewrite(f2);

  readln(f1,N);
  for i := 1 to N do
  begin
    read (f1, a[i]);
    readln (f1,b[i]);
  end;

  a[0] := 0;
  b[0] := 0;
  //1
  for i := 1 to N do
  begin
    if (b[i] = a[i] - 1) then
    begin
      count := 1;
      for j := a[i-1]+1 to a[i] do
      begin
        write (f2, a[i-1]+count,' ');
        inc(count);
      end;
      break;
    end;
  end;

  //writeln(a[n]);
  //writeln(b[n]);
  //readln;
  //2
  if (a[n]=b[n]) then
  begin
    count := 1;
    for i := a[n] to 22 do
    begin
      write (f2,a[n]+count,' ');
      inc(count);
    end;

  end;


  close(f1);
  close(f2);
end.