1 семестр сессия / 2

Program Lab_426_Var2;

Type Massive = Array [1..5,1..4] Of Real;

Procedure Min(B:Massive; I:Integer; Var M:Real);
  Var J:Integer;
  Begin
  M:=B[I,1];
  For J:=2 To 4 Do
    If M>B[I,J] Then
      M:=B[I,J];
  End;
  
Var
  Y,M:Real;
  B:Massive;
  I,J:Integer;
  
Begin
Randomize;
For I:=1 To 5 Do
  Begin
  For J:=1 To 4 Do
    Begin
    B[I,J]:=Random(21) - 10;
    Write(B[I,J],' ');
    End;
  Writeln;
  End;

Y:=0;  
For I:=1 To 5 Do
  Begin
  Min(B,I,M);
  Y:=(6-I)*M + Y;
  End;
Writeln('Y = ',Y);
End.