记录编号	8171	评测结果	AAAAAAAAAAW
题目名称	[BYVoid S3] 彩色穿孔卡片	最终得分	90
用户昵称	王瑞祥K	是否通过	未通过
代码语言	Pascal	运行时间	0.811 s
提交时间	2008-11-13 11:42:28	内存使用	0.20 MiB

program punch(input,output);
var
 a:array[1..10000,1..2]of longint;
 b:array[1..10000]of boolean;
 n,i,j,s:integer;
begin
 assign(input,'punch.in');assign(output,'punch.out');
 reset(input);rewrite(output);
 readln(n);
 s:=0;
 for i:=1 to n do begin
  readln(a[i,1],a[i,2]);
  for j:=1 to i-1 do
   if b[j] then begin
    if (a[i,1]<a[j,1])and(a[i,2]>a[j,1])and(a[i,2]<a[j,2])then a[j,1]:=a[i,2];
    if (a[i,2]>a[j,2])and(a[i,1]>a[j,1])and(a[i,1]<a[j,2])then a[j,2]:=a[i,1];
    if (a[i,1]<=a[j,1])and(a[i,2]>=a[j,2])then begin b[j]:=false;dec(s);end;
   end;
  b[i]:=true;
  inc(s);
 end;
 write(s);
 close(input);close(output);
end.