Var
 A:integer;
 N:array[1..9]of integer;
Begin
ReadLn(A);
While A<>0 do
Begin
N[A]:=N[A]+1;
ReadLn(A);
End;
For A:= 1 to 9 do
 WriteLn('Кол-во ',A,' = ',N[A])
End.