program P1059;

var a:array[1..100,0..100] of integer;

b:array[1..100,0..100] of boolean;

n:integer;

i,j,k:integer;

maxn,t:integer;

height:integer;

begin

maxn:=0;

read(n);

for i:=1 to n do

begin

j:=1;

t:=0;

read(a);

while a-1 do

begin

t:=t+a;

inc(j);

read(a);

end;

if maxn