```
var
a:array[1..3000,1..2] of longint;
i,j,k,n,m,t,x,y:longint;
begin
read(n);
for i:= 1 to n do
begin
read(a[i,1],a[i,2]);
end;
x:=0;y:=0;
for i:= 1 to n do
if a[i,1]+a[i,2]>8 then begin for j:= i to n do
begin
x:=a[j,1]+a[j,2]-8+y;
t:=t+x;
y:=x;
end;
//end;
break;
end;
write(t);
end.
```
by RKcer21 @ 2018-03-22 19:52:32