记录编号	18991	评测结果	AAAAAAAA
题目名称	挤牛奶	最终得分	100
用户昵称	gragon	是否通过	通过
代码语言	Pascal	运行时间	0.107 s
提交时间	2010-09-27 09:51:02	内存使用	1.07 MiB

program ex;
var
a:array[0..1000000] of boolean;
tou,j,wei,n,y,x,x1,y1,i:longint;
f:text;
begin
assign(f,'milk2.in');
reset(f);
for i:=0 to 1000000 do
a[i]:=false;
wei:=0;
tou:=maxlongint;
readln(f,n);
for i:=1 to n do
begin
readln(f,x,y);
if y>wei then
wei:=y;
if x<tou then
tou:=x;
for j:=x+1 to y do
a[j]:=true;
end;
close(f);
x:=0;y:=0;x1:=0;y1:=0;
for i:=tou+1 to wei do
begin
if (a[i]=true) then
begin
if y>y1 then
y1:=y;
y:=0;
inc(x);
end
else
if (x>x1) then
x1:=x;
if (a[i]=false) then
begin
x:=0;
inc(y);
end;
end;
if x>x1 then
x1:=x;
if y>y1 then
y1:=y;
assign(f,'milk2.out');
rewrite(f);
writeln(f,x1,' ',y1);
close(f);
end.