const n = 10;const r = 5;
var m, k, l, ind: integer;
matrix : array[1..r, 1..n] of integer;
begin
  for var i := 1 to r do
     for var j := 1 to n do
         matrix[i , j] := Random(2);
  ind := 1; m := 0;
  for var i := 1 to r do
  begin
    k := 0;
    for var j := 1 to n do
     if (matrix[i, j] = 0) then k := k +1;
    if (k > m ) then
      begin ind := i; m := k; end;
  end;
   writeln(ind);
end.