var
 a,b:array[1..30]of longint;
 n,i,j,l,k:longint;

begin
 fillchar(a,sizeof(a),0);
 readln(n);readln(l);
 for j:=1 to l do readln(f,a[j],a[j]);
 readln;
 for i:=2 to n do
  begin
   fillchar(b,sizeof(b),maxlongint);
   readln(l);
   for j:=1 to l do
    begin
     read(l);
     while l<>0 do
      begin
       read(k);
       if a[l]+k<b[j] then b[j]:=a[l]+k;
       read(l);
      end;
     readln;
    end;
   readln;
   a:=b;
  end;
 j:=maxlongint;
 for i:=1 to 30 do if a[i]<j then j:=a[i];
 writeln(j);
end.

> var
>  a,b:array[1..30]of longint;
>  n,i,j,l,k:longint;
>
> begin
>  fillchar(a,sizeof(a),0);
>  readln(n);readln(l);
>  for j:=1 to l do readln(f,a[j],a[j]);
>  readln;
>  for i:=2 to n do
>   begin
>    fillchar(b,sizeof(b),maxlongint);
>    readln(l);
>    for j:=1 to l do
>     begin
>      read(l);
>      while l<>0 do
>       begin
>        read(k);
>        if a[l]+k<b[j] then b[j]:=a[l]+k;
>        read(l);
>       end;
>      readln;
>     end;
>    readln;
>    a:=b;
>   end;
>  j:=maxlongint;
>  for i:=1 to 30 do if a[i]<j then j:=a[i];
>  writeln(j);
> end.

> > var
> >  a,b:array[1..30]of longint;
> >  n,i,j,l,k:longint;
> >
> > begin
> >  fillchar(a,sizeof(a),0);
> >  readln(n);readln(l);
> >  for j:=1 to l do readln(f,a[j],a[j]);
> >  readln;
> >  for i:=2 to n do
> >   begin
> >    fillchar(b,sizeof(b),maxlongint);
> >    readln(l);
> >    for j:=1 to l do
> >     begin
> >      read(l);
> >      while l<>0 do
> >       begin
> >        read(k);
> >        if a[l]+k<b[j] then b[j]:=a[l]+k;
> >        read(l);
> >       end;
> >      readln;
> >     end;
> >    readln;
> >    a:=b;
> >   end;
> >  j:=maxlongint;
> >  for i:=1 to 30 do if a[i]<j then j:=a[i];
> >  writeln(j);
> > end.