var  n,i,a,s1,s2,s3,s4,s5:longint;
begin
  read(n);
  for i:=1 to n do
  begin
    read(a);
    if a>=90 then
      inc(s5)
    else
      if (a>=80) and (a<90) then
        inc(s4)
      else
        if a>=70 then
          inc(s3)
        else
          if (a>=60) and (a<70) then
            inc(s1)
          else
            inc(s2);
  end;
  writeln(s2);
  writeln(s1);
  writeln(s3);
  writeln(s4);
  writeln(s5);
end.
/**************************************************************
	Problem: 2024
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/