program ex4;
type matriz = array [1..10, 1..4] of longint;

var m : matriz;
    var pi, curso : integer;

procedure ler (var m : matriz);
var i, j : longint ;
    n : longint;
begin
    for i:=1 to 10 do
        for j:=1 to 3 do
        begin
                read(m[i,j]);
                if j = 3 then
                begin
                    n:=m[i,1];
                    n:=n div 1000;
                    n:=n mod 10000;
                    m[i,4]:=n;
                    //writeln(m[i,4]);
                end;
        end;
end;

procedure acha_cr_mais_alto (m : matriz; var pi: integer; curso : integer);
var i,maior : integer ;

begin
    maior:=0;
    for i:=1 to 10 do
        if (m[i,2] = 0) and (m[i,4]= curso) then
        begin
            if m[i,3] > maior then
            begin
                maior:= m[i,3];
                pi:=i;
            end;
        end;
end;

procedure separa_curso (var m : matriz);
var j, i, n : integer;
begin
    for i:=1 to 10 do
    begin
        n:=m[i,1] div 1000;
        n:=n mod 10000;
        m[i,3]:=n;
    end;
end;

begin
    ler(m);
    //separa_curso(m);
    read(curso);
    acha_cr_mais_alto(m,pi,curso);
    writeln(m[pi,1]);
end.