var a : array[1..9]of integer;
v1,v2,i : integer;
begin
fillchar(a,sizeof(a),0);
Randomize;
v1 := 0;
for i := 1 to 500 do
begin
v2 := random(9) + 1;
write(v2,' ');
if v1 = v2 then a[v2] := a[v2] + 1;
v1 := v2;
end;
writeln;
for i := 1 to 9 do
write(a[i],' ');
end.