Here is my program:

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.