program PascalGuru;
uses crt;
var A:array[1..100,1..100] of integer;
    B:array[1..100] of integer;
    i,j,n,m,s,min:integer;
 
{--------------------------------------------}
begin
write('N= '); readln (n);
write('M= '); readln (m);
 
writeln ('Vvedite elementy massiva A: ');
for i:=1 to n do
for j:=1 to m do  begin
write ('A[',i,',',j,']='); readln (A[i,j]); end;
 
clrscr;
write ('Vot vvedennyi vami massiv A: ');
for i:=1 to n do begin writeln;
for j:=1 to m do write (A[i,j]:4,' '); end;
 
 
for i:=1 to m do begin   s:=1;
for j:=2 to n do
  if A[j,i]>A[s,i] then  A[s,i]:=A[j,i];  B[i]:=A[s,i]; end;
 
min:=B[1];
for j:=2 to m do
if B[j]<min then min:=B[j];
 
writeln;writeln; writeln('MIN: ',min);
 
 
readln;
end.