Var
A:array[1..5,1..6]of real;
B:array[1..5]of real;
i,j:integer;
Begin

For i:= 1 to 5 do
 For j:= 1 to 6 do
  Begin
  A[i,j]:=random(7)+1;//Read(A[i,j]);
  B[i]:=B[i]+A[i,j]
  End;

For i:= 1 to 5 do
 Begin
 For j:= 1 to 6 do
  Write(A[i,j]:2,' ');
 Write('Сумма элементов = ',B[i]);
 WriteLn
 End;

j:=1;
For i:= 2 to 5 do
 if B[i]<B[j] then j:=i;

For i:= 1 to 6 do
 if A[j,i]>A[j,1] then A[j,1]:=A[j,i];
WriteLn(A[j,1])
End.