记录编号	2349	评测结果	AAAAAAAAAA
题目名称	到天宫做客	最终得分	100
用户昵称	francis	是否通过	通过
代码语言	Pascal	运行时间	0.018 s
提交时间	2008-09-19 12:50:38	内存使用	0.11 MiB

program heaven;
const
fin='heaven.in';
fou='heaven.out';
a:array[1..12]of longint=(31,29,31,30,31,30,31,31,30,31,30,31);
var
b:array[1..400]of boolean;
all,max,q,i,j,n,x,y,m:longint;
total:real;
f1,f2:text;

procedure init;
begin
assign(f1,fin); assign(f2,fou);
reset(f1); rewrite(f2);
read(f1,n);
for i:=1 to n do
begin
 m:=0;
 read(f1,x,y);
 for j:=1 to (x-1) do
 m:=m+a[j];
 m:=m+y;
 b[m]:=true;
end;
end;

begin
init;
q:=0;
for i:=1 to 366 do
 if b[i]=true then
 begin
  all:=i-1-q;
  if all>max then max:=all;
  q:=i;
 end;
all:=366-q;
if all>max then max:=all;
total:=max*24*60*60/366;
max:=trunc(total);
total:=total-max;
if total>=0.5 then inc(max);
write(f2,max);
close(f1); close(f2);
end.