program dem_xuat_hien;
var f,g:text;
A:array[1..100000] of byte;
n:integer;
i:byte;
function dem(so:byte):integer;
var j:integer;
begin
dem:=0;
for j:=1 to n do
if A[j]=so then dem:=dem+1;
end;
BEGIN
Assign(f,'Dem3.INP'); reset(f);
Assign(g,'Dem3.OUT'); rewrite(g);
readln(f,n);
for i:=1 to n do
read(f,A[i]);
for i:=0 to 99 do
write(g,dem(i),' ');
close(f); close(g);
end.
