Const
 M=5;
 N=8;
VAR
 A:Array[1..M,1..n] of Integer;
 Min:Array[1..M] of Integer;
 i,j,k,p,X:Integer;
 b:Boolean;
BEGIN
 Randomize;
 For i:=1 to M do
  begin
   Min[i]:=100;
   For j:=1 to N do
    begin
     A[i,j]:=30-Random(100);
     If A[i,j]<Min[i] then Min[i]:=A[i,j];
    end;
  end;
 Writeln('Task N 23:');
 For i:=1 to M do
  begin
   For j:=1 to N do
    Write(A[i,j]:5);
   Writeln('   Min= ',Min[i]:3);
  end;
 Writeln;
 Writeln('Task N 39:');
 p:=0;
 For j:=1 to N do
  begin
   b:=true;
   For i:=1 to M do
    For k:=1 to M do
     If (i<>k) and (A[i,j]=A[k,j]) then b:=false;
   If b then Inc(p);
  end;
 Writeln('The number of columns with only different elements is ',p);
 Writeln;

 Writeln('Task N 54:');
 p:=0;
 For j:=1 to N do
  If p=0 then
   begin
    b:=true;
    For i:=1 to M do
     If (p=0) and (A[i,j]>=0) then b:=false;
    If b then p:=j;
   end;

 If (p>0) and (p<N) then
  For i:=1 to M do
   begin
    X:=A[i,N];
    A[i,N]:=A[i,p];
    A[i,p]:=X;
   end;

 For i:=1 to M do
  begin
   For j:=1 to N do
    Write(A[i,j]:5);
   Writeln;
  end;

 Readln
END.