记录编号	71985	评测结果	AAAAAAAAAA
题目名称	[UVa 11462] 年龄排序	最终得分	100
用户昵称	钨铅	是否通过	通过
代码语言	Pascal	运行时间	2.601 s
提交时间	2013-10-14 17:20:32	内存使用	0.17 MiB

program AgeSort;
var a:array[0..120]of longint;
    n,i,x:integer;
    j:longint;
begin
assign(input,'AgeSort.in');
assign(output,'AgeSort.out');
reset(input);
rewrite(output);
fillchar(a,sizeof(a),0);
j:=0;
while not(eof(input)) do begin
                         read(x);
                         if x>120 then continue;
                         inc(a[x]);
                         j:=j+1;
                         if j=50000000 then break;
                         end;
for i:=0 to 120 do begin
                   while a[i]<>0 do begin
                                    write(i,' ');
                                    a[i]:=a[i]-1;
                                    end;
                   end;
close(input);
close(output);
end.