uses crt;
var Str,Strmax,Strmax2:string[52];
simvol:char;
i,N,nomer,ball,max,max2,nmax,nmax2:integer;

Begin
max:=-1;
max2:=-1;
Strmax:='';
nmax:=0;
Writeln('Вве­ди­те ко­ли­че­ство уче­ни­ков: ');
readln(N);
for i:=1 to N do
begin
str:=''; //об­ну­ле­ние стро­ки
Repeat         //счи­ты­ва­ем до про­бе­ла
read(simvol);   //каж­дый сим­вол
Str:=Str+simvol; //при­бав­ля­ем к стро­ке
Until simvol=' ';  //Фа­ми­лия счи­та­на
Repeat
read(simvol);
Str:=Str+simvol;
Until simvol=' '; //Имя счи­та­но,при­бав­ле­но к стро­ке
read(nomer); //счи­ты­ва­ем номер
read(ball); //счи­ты­ва­ем балл
if nomer=30 then     //нас ин­те­ре­су­ют уче­ни­ки толь­ко 30 школы
   if ball>max then  //если те­ку­щий балл боль­ше мак­си­маль­но­го
      begin
           max2:=max; //быв­ший мак­си­мум-вто­рой мак­си­мум
           max:=ball;  //мак­си­маль­ный балл-те­ку­щий балл
           Strmax2:=strmax; //быв­ший луч­ший те­перь вто­рой луч­ший
           Strmax:=Str;  //те­ку­щий уче­ник на­брал мак­си­маль­ный балл
           nmax2:=nmax;
           nmax:=1; //счет­чик самых луч­ших равен 1
      end
else
    if ball=max then  begin//если те­ку­щий балл равен мак­си­маль­но­му
         nmax:=nmax+1;
Strmax2:=str;
nmax2:=nmax;
end
      else if ball>max2 then  //если те­ку­щий балл боль­ше вто­ро­го луч­ше­го
      begin
      max2:=ball;
      Strmax2:=Str;
      nmax2:=1;
     end
else  if ball=max2 then nmax2:=nmax2+1; //если те­ку­щий балл равен 2 луч­ше­му
end;
if (nmax=2) or (nmax=1) and (nmax2=1) then //если 2 уче­ни­ка луч­шие
   begin
    writeln(Strmax);
    writeln(Strmax2);
   end
   else
   if (nmax=1) and (nmax2>1) then writeln(StrMax); //если один луч­ший
   if nmax>2 then writeln(nmax);//если луч­ших много
End.