记录编号	129	评测结果	WWWWWWTWWW
题目名称	[POI 1999] 遗传密码	最终得分	0
用户昵称	SMXX	是否通过	未通过
代码语言	Pascal	运行时间	10.000 s
提交时间	2008-04-25 09:14:38	内存使用	0.01 MiB

program pie;
type
ee=record
 a,b,c,d:integer;
 end;
var
f1,f2:text;
sum,n,i,j,h,g:integer;
k:array[1..1000]of ee;
s:array[1..1000,1..1000]of boolean;

begin
assign(f1,'pie.in');
assign(f2,'pie.out');
reset(f1);
rewrite(f2);
readln(f1,n);
for i:= 1to  n do readln(f1,k[i].a,k[i].b);
fillchar(s,sizeof(s),0);
for i:=1 to n do
 for j:= 1to n do
 if (k[i].a=k[j].b)and(not s[k[i].a,k[j].b]) then begin inc(k[i].d);inc(k[j].c);s[k[i].a,k[j].b]:=true;end;
h:=0;g:=0;
for i:= 1 to n do begin
    if k[i].d=0 then  inc(h);
    if k[i].c=0 then  inc(g);
  end;
  sum:=n+h+g-1;
  writeln(f2,sum);
  close(f1);
  close(f2);
end.