program u53;
var Precincts:array[1..7] of integer;
i,PrecinctNo:integer;
u53t:text;
begin
assign(u53t,'u53.txt');
reset(u53t);

{zero out the Precinct array}
i:=1;
for i:=1 to 7 do begin
Precincts[i]:=0;
end;

{update totals}
read(u53t,PrecinctNo);
while(PrecinctNo<>-1) do begin
Precincts[PrecinctNo]:=Precincts[PrecinctNo]+1;
read(u53t,PrecinctNo);
end;

{Dump out the precincts}
i:=1;
for i:=1 to 7 do begin
write('Precinct No. ',i,' has ',Precincts[i],' crimes.');
writeln;
end;

end.