记录编号	109877	评测结果	AAAAAAAAAA
题目名称	NBA总冠军	最终得分	100
用户昵称	FoolMike	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2014-07-09 18:10:36	内存使用	0.18 MiB

var
a:array[1947..2009]of longint;
b,c,d,n:longint;
st,str:string;
s:array[1947..2009]of string;
begin
assign(input,'nba.in');
assign(output,'nba.out');
reset(input);
rewrite(output);
readln(n);
for n:=1 to n do
begin
str:='';
readln(st);
b:=1;
while (st[b]>'9')or(st[b]<'0') do
begin
str:=str+st[b];
inc(b);
end;
c:=1;d:=0;
for b:=length(st) downto b do
begin
d:=d+(ord(st[b])-48)*c;
c:=c*10;
end;
a[d]:=1;
s[d]:=str;
end;

for b:=1947 to 2009 do
if a[b]=1 then writeln(b,' ',s[b]);
close(input);close(output);
end.