Program CODEVS1079;

var a:array[..,..] of longint;

    d:array[..] of longint;

    pd:array[..] of boolean;

    flag:array[..] of boolean;

    b:array[..] of longint;

    ch,space,ch2,ans:char;

    i,j,m,x,min:longint;

procedure spfa(s:longint);

var i,j,l,r,u,v:longint;

begin

  fillchar(pd,sizeof(pd),false);

  fillchar(b,sizeof(b),);

  fillchar(d,sizeof(d),$7f);

  l:=; r:=; pd[s]:=true; b[l]:=s; d[s]:=;

  while l<=r do

    begin

      u:=b[l];

      for v:=ord('A') to ord('z') do

        if (a[u,v]<) and (d[u]+a[u,v]<d[v]) then

          begin

            d[v]:=d[u]+a[u,v];

            if not pd[v] then

              begin

                inc(r);

                b[r]:=v;

                pd[v]:=true;

              end;

          end;

      inc(l);

      pd[u]:=false;

    end;

end;

begin

  fillchar(flag,sizeof(flag),false);

  fillchar(a,sizeof(a),$7f);

  readln(m);

  for i:= to m do

    begin

      readln(ch,space,ch2,space,x);

      if x>a[ord(ch),ord(ch2)] then continue;

      a[ord(ch),ord(ch2)]:=x;

      a[ord(ch2),ord(ch)]:=x;

      flag[ord(ch)]:=true;

      flag[ord(ch2)]:=true;

    end;

    min:=maxlongint;

  spfa(ord('Z'));

  for i:=ord('A') to ord('Y') do

    if flag[i] then

      if d[i]<min then

        begin

          ans:=chr(i);

          min:=d[i];

        end;

  writeln(ans,' ',min);

end.