var  A:array[1..20,1..20] of integer;
     min,i,j,n:integer;
begin
      Write('Razmer <=20 = ');
       Readln(n);
        Writeln;
      Writeln('Massiv:');
       Writeln;
        Randomize;
         for i:=1 to n do
          begin
            for j:=1 to n do
             begin
               A[i,j]:=Random(50);
                Write(A[i,j]:3);
             end;
            Writeln;
          end;
         Writeln;
      j:=1;
      repeat
       min:=A[1,j];
        for i:=2 to n do
         if A[i,j]<min
          then min:=A[i,j];
           Writeln('V stolbce ',j,' min = ',min);
            Inc(j);
      until j>n;
     Readln;
end.