program test;

uses sysutils;

var
    a: array [0 .. 1000, 0 .. 1000] of integer; // матрица
    i, j, n, imax: integer;
    s: array [0 .. 1000] of integer; // количество единиц по строкам

procedure vvod_matrici;
begin
    writeln('vvedi elementi');
    for i := 0 to n do
        for j := 0 to n do
        begin
            Read(a[i][j]);
            if (a[i][j] = 1) then
                s[i] := s[i] + 1;
        end;
end;

procedure poisk;
begin
    for i := 0 to n - 1 do
    begin
        if (s[i] > s[i + 1]) then
        begin
            imax := i;
        end;
    end;
end;

begin
    writeln('vvedi poriadok');
    ReadLn(n);
    dec(n);

    vvod_matrici;
    poisk;

    writeln(imax);
    ReadLn

end.