begin
  var m := 3;
  var a := Matr(m, m, Range(1, m * m).ToArray.Shuffle); a.Println;
  
  var c := 9;
  a.ElementsByRow.Count(x -> x < c).Println;
  
  var Min := a.ElementsByRow.Min;
  
  var (i, j) := (0, 0);
  while (i <= m - 1) and (a.Row(i).Min <> Min) do inc(i);
  while (j <= m - 1) and (a.Col(j).Min <> Min) do inc(j);
  
  (a.Row(i).Aggregate(1, (p, x)-> p * x) * 
  a.Col(j).Aggregate(1, (p, x)-> p * x)).Println;
end.