sequential;
v124:=0;
v125:=0;

for i:=4 to 82 do
	if v(i)=1 then v124:=v124+v(i+1);

for i:=4 to 82 do
	if v(i)=-1 then v125:=v125+v(i+1);

v246:=0;
v247:=0;

for i:= 126 to 204 do
	if v(i)=1 then v246:=v246+v(i+1);

for i:= 126 to 204 do
	if v(i)=-1 then v247:=v247+v(i+1);