记录编号	109945	评测结果	AAAAAAAAAA
题目名称	[UVa 11462] 年龄排序	最终得分	100
用户昵称	甘罗	是否通过	通过
代码语言	Pascal	运行时间	2.201 s
提交时间	2014-07-10 09:24:57	内存使用	0.17 MiB

program zht;
var
a,i,j:longint;
z:array[0..120] of longint;
begin
assign(input,'AgeSort.in');
assign(output,'AgeSort.out');
reset(input);
rewrite(output);
while not eof do
begin
read(a);
inc(z[a]);
end;
for i:=0 to 120 do
begin
if z[i]>0 then
  for j:=1 to z[i] do
  write(i,' ');

end;
close(input);
close(output);
end.