记录编号	20416	评测结果	AAAAAAAAAA
题目名称	NBA总冠军	最终得分	100
用户昵称	Achilles	是否通过	通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2010-10-26 07:51:22	内存使用	0.14 MiB

program nba;
var
  i,j,n:longint;
  code:integer;
  s,st:string;
  sz:array[0..100]of integer;
  sz2:array[0..100]of string;
begin
  assign(input,'nba.in');
  assign(output,'nba.out');
  reset(input);
  rewrite(output);
  readln(n);
  for i:=1 to n do
  begin
    readln(s);
    st:='';
    while s[length(s)]<>' ' do
    begin
      st:=s[length(s)]+st;
      delete(s,length(s),1);
    end;
    sz2[i]:=s;
    val(st,sz[i],code);
  end;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if sz[i]>sz[j] then begin
        sz2[0]:=sz2[i];
        sz2[i]:=sz2[j];
        sz2[j]:=sz2[0];
        sz[0]:=sz[i];
        sz[i]:=sz[j];
        sz[j]:=sz[0];
      end;
  for i:=1 to n do
    if sz[i]<>sz[i-1] then writeln(sz[i],' ',sz2[i]);
  close(input);
  close(output);
end.