program skore;

type
clovek= record
	jmeno: string;
	skore: integer;
	end;

var a:array of clovek;
limit,i,j: integer;
tmp:clovek;
begin
readln(limit);
setlength(a,limit);
for i:=0 to limit - 1 do begin
	read(a[i].skore,a[i].jmeno);
end;

for i:= 0 to limit - 1 do begin
	for j:= 0 to limit - 2 do begin
		if a[j].skore < a[j+1].skore then begin
			tmp:= a[j];
			a[j]:= a[j+1];
			a[j+1] := tmp;
		end;
	end;
end;

for i:=0 to limit - 1 do begin
	writeln(a[i].skore,' ',a[i].jmeno);
end;
end.