DOTUOI PASCAL

var n,res,d:longint;
    a:array[1..1000000] of longint;
procedure nhap;
var i:longint;
begin
    readln(n);
    for i:=1 to n do readln(a[i]);
end;
procedure giai;
var i:longint;
begin
    res:=1;
    d:=1;
    for i:=2 to n do
    begin
        if a[i]=a[i-1] then inc(d)
        else d:=1;
        if d>res then res:=d;
    end;
    write(res);
end;
begin
    assign(input, 'dotuoi.inp');reset(input);
    assign(output, 'dotuoi.out');rewrite(output);
    nhap;
    giai;
end.