Какой документ закрепил феодальную раздробленность Германии? Какие права он предоставлял феодалам?

Var a,b,c,d:word;
begin
read(b); c:=0;
for a:=1 to b do begin
read(d);
c:=c+d;
end;
write(c/b);
end.