CONST
 k=5;
 n=7;
VAR
 a:Array[1..k*n] of Real;
 Min:Array[1..n] of Real;
 Max:Real;
 i,j:Integer;

BEGIN
 Randomize;
 For i:=1 to k*n do
  begin
   a[i]:=random*100;
   write(a[i]:8:3);
   if (i mod k)=0 then writeln;
  end;
 writeln;
 writeln;

 For i:=1 to n do
  begin
   Min[i]:=a[(i-1)*k+1];
   For j:=2 to k do
    If a[(i-1)*k+j]<Min[i] then Min[i]:=a[(i-1)*k+j];
   write(Min[i]:8:3);
  end;
 writeln;
 writeln;

 Max:=Min[1];
 For i:=2 to n do
  If Min[i]>Max then Max:=Min[i];
 Writeln(Max:8:3);

 Readln
END.