SlavPas_5

Const
    M = 6; N = 3;
Var
    I, J, Min: Integer;
    A: Array [1..M, 1..N] Of Integer;
Begin
    Randomize;
    For J:= 1 To N Do Begin
      For I:= 1 To M Do Begin
        A[I, J]:= Integer(Random(25));
        Write(A[I, J], ' ');
      End;
      Min:= A[1, J];
      For I:= 2 To M Do If Min > A[I, J] Then Min:= A[I, J];
      WriteLn('; Min = ', Min);
    End;
    ReadLn;
End.