program nums;
type Arbore=^Nod;
     Nod=record
          info:longint;
          st,dr:Arbore;
        end;
var r:arbore;
    n,i,x,k:longint;
    t:byte;
    f,g:text;

  Procedure CreazaArb(Var p:arbore;x:longint);
    begin
      If p<>nil then
         begin
           If x<p^.info then CreazaArb(p^.st,x)
             else
               If x>p^.info then CreazaArb(p^.dr,x);
         end
         else
           begin
             new(p);
             p^.info:=x;
             p^.st:=nil;
             p^.dr:=nil;
           end;
    end;

  Procedure SRD(p:arbore);
    begin
      If p<>nil then
        begin
          SRD(p^.st);
          k:=k+1;
          If k=x then writeln(g,p^.info);
          SRD(p^.dr);
        end;
    end;

begin
  r:=nil;
  assign(f,'nums.in');
  assign(g,'nums.out');
  rewrite(g);
  reset(f);
  readln(f,n);
  For i:=1 to n do
     begin
       readln(f,t,x);
       If t=1 then  CreazaArb(r,x){x=numar}
            else
             begin
               k:=0;
               SRD(r);
             end;
     end;
  close(f);
  close(g);
end.