const N=50;
var a: array [0..N, 0..10] of integer;
    b, u: array [0..N] of integer;
    i, j, c: integer;
    f:       boolean;
    l, d, o, r: integer;
begin
	for i := 0 to N do
	begin
		for j := 0 to 10 do
		begin
			a[i, j] := random(10);
			write(a[i, j]:3);
		end;
		writeln;
	end;
	
	for i := 0 to N do
		for j := 0 to 10 do
			b[i] := b[i] + a[i, j];
			
	repeat
		f:=false;
		for i:=1 to N-1 do
		begin
			if b[i]>b[i+1] then
			begin
			f:=true;
			c:=b[i];
			b[i]:=b[i+1];
			b[i+1]:=c;
			end;
		end;
	until not f;
	
	for i := 0 to N do
	begin
		u[i] := b[i];
		writeln('[', i, '] => ', u[i]);
	end;
end.