记录编号	6454	评测结果	AAAAAAAAAA
题目名称	[USACO Jan08] 奶牛的比赛	最终得分	100
用户昵称	Shuai	是否通过	通过
代码语言	Pascal	运行时间	0.051 s
提交时间	2008-11-02 11:16:37	内存使用	0.12 MiB

program pk;
var i,j,k,n,m,ans,x,y:longint;
    can:boolean;
    link:array[1..100,1..100]of boolean;
begin
 assign(input,'contest.in');
 reset(input);
 assign(output,'contest.out');
 rewrite(output);
 readln(n,m);
 for i:=1 to m do
  begin
   readln(x,y);
   link[x,y]:=true;
  end;
 for k:=1 to n do
  for i:=1 to n do
   for j:=1 to n do
    link[i,j]:=(link[i,j])or(link[i,k] and link[k,j]);
 for i:=1 to n do
  begin
   can:=true;
   for j:=1 to n do
    if (i<>j)and(not link[i,j])and(not link[j,i]) then can:=false;
   if can then inc(ans);
  end;
 writeln(ans);
 close(input);
 close(output);
end.