program PascalGuru;
 
var A:array[1..6,1..5] of integer;
    max,summa,stolb:integer;
    i,j:integer;
 
 
{--------------------------------------------}
begin
 
for i:=1 to 6 do
for j:=1 to 5 do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end; {считываем сам массив}
 
 
writeln ('Vot elementy massiva [6x5]: ');
for i:=1 to 6 do begin writeln;
for j:=1 to 5 do write (A[i,j]:8,' '); end;  {выводим массив}
 
max:=A[1,1]; stolb:=1;
for i:=1 to 6 do
for j:=1 to 5 do
if A[i,j]>max then begin max:=A[i,j]; stolb:=j; end;
 
 
summa:=0;
for i:=1 to 6 do summa:=summa+A[i,stolb];
 
writeln; writeln;
writeln('MAX: ',max);
writeln('SUMMA: ',summa);
 
 
readln;
end.