Var
 A,N1,N2,N3,N4,N5,N6,N7,N8,N9:integer;
Begin
Repeat
ReadLn(A);
Case A of
1:N1:=N1+1;
2:N2:=N2+1;
3:N3:=N3+1;
4:N4:=N4+1;
5:N5:=N5+1;
6:N6:=N6+1;
7:N7:=N7+1;
8:N8:=N8+1;
9:N9:=N9+1;
End;
Until A=0;
WriteLn('Кол-во единиц = ',N1);
WriteLn('Кол-во двоек = ',N2);
WriteLn('Кол-во троек = ',N3);
WriteLn('Кол-во четвёрок = ',N4);
WriteLn('Кол-во пятёрок = ',N5);
WriteLn('Кол-во шестёрок = ',N6);
WriteLn('Кол-во семёрок = ',N7);
WriteLn('Кол-во восьмёрок = ',N8);
WriteLn('Кол-во девяток = ',N9);
End.