program merda;
var
begin
	for i:=1 to 2 do
		for j:=1 to 3 do
			begin
				writeln('Insira um numero');
				readln(num[i,j];
				while (num[i,j]<10) or (num[i,j]>30) do
					begin
						writeln('Apenas numeros entre 10 e 30, insira de novo');
						readln(num[i,j]);
					end;
			end;

	soma:=0; max:=num[1,1]+num[2,1];
	for i:=1 to 3 do
		begin
		for j:=1 to 2 do
			soma:=soma+num[i,j];
		if soma>max then
			begin
				max:=soma;
				colu:=i;
			end;
		soma:=0;

		end;
	writeln('A coluna com maior numero de documentos é ', colu);
end.