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

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