记录编号	22901	评测结果	AAAAAAAAAA
题目名称	总流量	最终得分	100
用户昵称	donny	是否通过	通过
代码语言	Pascal	运行时间	0.008 s
提交时间	2011-01-07 19:50:33	内存使用	0.12 MiB

program tflow;
var
  i,j,k,l:longint;
  o,p,q:char;
  n,m:longint;
  c:array['A'..'z','A'..'z']of longint;
  b:array['A'..'z']of boolean;
  max:longint;
function min(x,y:longint):longint;
begin
  if x>y then exit(y)
  else exit(x);
end;
procedure search(x:char;y:longint);
var
  o:char;
begin
    for o:='A' to 'z' do
      if (c[x,o]>0)and(b[o]=false) then
        if o='Z' then
        begin
          m:=min(c[x,o],y);
          c[x,o]:=c[x,o]-m;
          c[o,x]:=c[o,x]+m;
          max:=max+m;
          break;
        end
        else
        begin
          b[o]:=true;
          search(o,min(y,c[x,o]));
          b[o]:=false;
          if m<>0 then
          begin
            c[x,o]:=c[x,o]-m;
            c[o,x]:=c[o,x]+m;
            break;
          end;
        end;
end;
begin
  assign(input,'tflow.in');
  reset(input);
  assign(output,'tflow.out');
  rewrite(output);

  readln(n);
  for i:=1 to n do
  begin
    readln(o,p,p,q,m);
    c[o,p]:=c[o,p]+m;
    c[p,o]:=c[p,o]+m;
  end;

  max:=0;
  b['A']:=true;
  m:=1;
  while m<>0 do
  begin
    m:=0;
    search('A',9999999);
  end;
  writeln(max);

  close(input);
  close(output);
end.