var
a=array[1..10,1..15] of integer;
mass=array[1..15] of integer;
b,s,d,i,j:integer;
BEGIN
s=0;
b=0
d=0
	randomize;
	for i:=1 to 10 do
		for j:=1 to 15 do
		a[i,j]:=random(20+20)-20;
for j:=1 to 15 do
	for i:=1 to 10 do
	begin
	s:=s+a[i,j]
	mass[j]=s;
	end;
for i:=1 to 15 do
	begin
	if b<mass[i] then
		b=mass[i];
		d=i;
	end;
writeln('max=',b);
writeln('number_max=',d)
end.