program ex_1;
var
  a:array[1..100]of longint;
  i,m,z,d,r:longint;
begin
  read(m);
  for i:=1 to m do read(a[i]);
  for i:=1 to m do if(a[i]<90)then inc(r)
                              else if(a[i]=90)then inc(z)
                                              else inc(d);
  write(z,' ',r,' ',d);
end.                                        
  
  
/**************************************************************
	Problem: 1804
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/