记录编号	195693	评测结果	AAAAAAAAAA
题目名称	[网络流24题] 搭配飞行员	最终得分	100
用户昵称	封自	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2015-10-19 16:11:04	内存使用	0.32 MiB

var  n,n1,i,j,x,y,sum:longint;
	a:array[0..1000] of longint;
	m:array[1..200,1..200] of longint;

begin
assign(input,'flyer.in');reset(input);
assign(output,'flyer.out');rewrite(output);
	readln(n1,n);
	while not eoln do
	  begin
		readln(i,j);
		m[i,j]:=1;
		inc(a[j]);
	  end;
	a[0]:=1000;
	sum:=0;
	for i:=1 to n do
	  begin
	    j:=n+1;
		x:=0;
		while j<=n1 do 
		  begin
		    if m[i,j]=1 then 
		      if (a[j]<a[x]) and (a[j]<>0) then x:=j;
			if a[x]=1 then j:=n1;
			inc(j);
		  end;
		if x<>0 then
		  begin
			inc(sum);
			a[x]:=0;
		  end;
	  end;
	writeln(sum);
close(input);close(output);
end.