var Str,Strmax1,Strmax2:string[52];

symbol:char;

i,N,number,ball,max1,max2, nmax1, nmax2:integer;

Begin

max1:=-1;

max2:=-1;

nmax1:=0;

nmax2:=0;

Strmax1:='';

number:=0;

Writeln('Вве­ди­те ко­ли­че­ство уче­ни­ков: ');

readln(N);

for i:=1 to N do

begin

str:=''; //об­ну­ле­ние стро­ки

Repeat //счи­ты­ва­ем до про­бе­ла

read(symbol); //каж­дый сим­вол

Str:=Str+symbol; //при­бав­ля­ем к стро­ке

Until symbol=' '; //Фа­ми­лия счи­та­на

Repeat

read(symbol);

Str:=Str+symbol;

Until symbol=' '; //Имя счи­та­но,при­бав­ле­но к стро­ке

read(number); //счи­ты­ва­ем номер

read(ball); //счи­ты­ва­ем балл

if number=30 then

begin //нас ин­те­ре­су­ют уче­ни­ки толь­ко 30 школы

if ball>max1 then //если те­ку­щий балл боль­ше мак­си­маль­но­го

begin

max2:=max1; //быв­ший мак­си­мум-вто­рой мак­си­мум

max1:=ball; //мак­си­маль­ный балл-те­ку­щий балл

Strmax2:=Strmax1; //быв­ший луч­ший те­перь вто­рой луч­ший

Strmax1:=Str; //те­ку­щий уче­ник на­брал мак­си­маль­ный балл

nmax2:=nmax1;

nmax1:=1; //счет­чик самых луч­ших равен 1

end

else if ball=max1 then

begin//если те­ку­щий балл равен мак­си­маль­но­му

nmax1:=nmax1+1;

Strmax2:=str;

nmax2:=nmax1;

end

else if ball>max2 then //если те­ку­щий балл боль­ше вто­ро­го луч­ше­го

begin

max2:=ball;

Strmax2:=Str;

nmax2:=1;

end

else if ball=max2 then nmax2:=nmax2+1; //если те­ку­щий балл равен 2 луч­ше­му

end;

end;

if (nmax1 > 2) then writeln(nmax1); //если луч­ших много

if (nmax1=2) then //если 2 уче­ни­ка луч­шие

begin

writeln(Strmax1);

writeln(Strmax2);

end;

if (nmax1 = 1) and (nmax2 > 1) then writeln(Strmax1); //если один луч­ший и много вто­рых

if (nmax1 = 1) and (nmax2 =1) then //если один луч­ший и один вто­рой ре­зуль­тат

begin

writeln(Strmax1);

writeln(Strmax2);

end;

End.