var a:array['A'..'z','A'..'z'] of int64;
    i,n,m,l:longint;
    q,w,mini,hh,k,e,r:char;
    min:int64;
begin
 assign(input,'comehome.in');
 assign(output,'comehome.out');
 reset(input);
 rewrite(output);
 readln(n);
 for k:='A' to 'z' do
  for e:='A' to 'z' do
   a[k,e]:=maxlongint;
 for i:=1 to n do
  begin
   readln(q,hh,w,l);
   if l<a[q,w] then
    begin
     a[q,w]:=l;
     a[w,q]:=l;
    end;
  end;
 for k:='A' to 'z' do
  for e:='A' to 'z' do
   for r:='A' to 'z' do
    if a[e,k]+a[k,r]<a[e,r] then
     a[e,r]:=a[e,k]+a[k,r];
 min:=maxlongint;
 for k:='A' to 'Y' do
  if a[k,'Z']<min then
   begin
    min:=a[k,'Z'];
    mini:=k;
   end;
 writeln(mini,' ',min);
 close(input);
 close(output);
end.