var x:longint;
a: longint :=0;
b: longint :=0;
c: longint :=0;
d: longint :=0;
e: longint :=0;
f: longint :=0;
g: longint :=0;
h: longint :=0;
i: longint :=0;
begin
writeln('введите последовательность(конец последовательности-"0")');
repeat
read(x);
case x of
1:inc(a);
2:inc(b);
3:inc(c);
4:inc(d);
5:inc(e);
6:inc(f);
7:inc(g);
8:inc(h);
9:inc(i)
end;
until x=0;
writeln (a,' ', b,' ', c,' ', d,' ', e,' ', f,' ', g,' ', h,' ', i);
end.