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

program ex;
var
t,s:array[1..50] of string;
i,j,n,l:longint;
f:boolean;
m:string;

procedure init;
begin
  assign(input,'nba.in');
  assign(output,'nba.out');
  reset(input);
  rewrite(output);
  readln(n);
  for i:=1 to n do
  begin
    readln(m);
    l:=length(m);
    t[i]:=copy(m,l-3,4);
    s[i]:=copy(m,1,l-5);
  end;
  close(input);
end;

begin
  init;
  for i:=1 to n-1 do
  begin
    for j:=i+1 to n do
    begin
      if (t[i]>t[j]) then begin m:=t[i];t[i]:=t[j];t[j]:=m;m:=s[i];s[i]:=s[j];s[j]:=m;end;
    end;
  end;
  f:=true;
  for i:=1 to n do
  begin
    for j:=1 to i-1 do
    begin
      if (t[i]=t[j]) then f:=false;
    end;
    if f then
    begin
      write(t[i],' ');
      writeln(s[i]);
    end;
    f:=true;
  end;
  close(output);
end.