var
    k:=1;
    n, nom, res, sk: integer;
    max := 0;
    smax := 0;
    i, x: integer;
    q, name, sname, a, line, ssk, ssch, ss: string;
    f: text;

begin
    assign(f, 'C:\1\abitura-2.txt');
    reset(f);
    readln(f, a);
    val(a, n, x);
    for i := 1 to n do
    begin
        readln(f, line);
        q := copy(line, 1, pos(' ', line));
        ssk := copy(line, pos(' ', line) + 1, pos(' ', line, pos(' ', line) + 1));
        ssch := copy(ssk, 1, pos(' ', ssk));
        val(ssch, nom, x);
        ss := copy(ssk, pos(' ', ssk), length(ssk) - pos(' ', ssk) + 1);
        val(ss, res, x);
        if nom = 30 then
            if res > max then
            begin
                smax := max;
                max := res;
                sname := name;
                name := q;
            end
              else
            if (res > smax) and (res < max) then
            begin
                smax := res;
                sname := q;
            end
            else
            if res = max then
            begin
                sname := q;
                smax := res;
                k += 1;
            end
            else
            if res = smax then
                sk += 1;
    end;
    if sk > 0 then
        writeln(name, max)
    else
    if k > 2 then
        print(k)
    else
    begin
        writeln(name, max);
        writeln(sname, smax);
        end;
    close(f);
end.