sequential;

if typ1=1 then 
	begin
            poslat:=poslat+lat1;
            numpos:=numpos+1
	end;
	
if typ1=-1 then begin
	neglat:=neglat+lat1;
	numneg:=numneg+1
	end;

if typ2=1 then 
	begin
            poslat:=poslat+lat2;
            numpos:=numpos+1
	end;
	
if typ2=-1 then begin
	neglat:=neglat+lat2;
	numneg:=numneg+1
	end;

if typ3=1 then 
	begin
            poslat:=poslat+lat3;
            numpos:=numpos+1
	end;
	
if typ3=-1 then begin
	neglat:=neglat+lat3;
	numneg:=numneg+1
	end;

if typ4=1 then 
	begin
            poslat:=poslat+lat4;
            numpos:=numpos+1
	end;
	
if typ4=-1 then begin
	neglat:=neglat+lat4;
	numneg:=numneg+1
	end;

if typ5=1 then 
	begin
            poslat:=poslat+lat5;
            numpos:=numpos+1
	end;
	
if typ5=-1 then begin
	neglat:=neglat+lat5;
	numneg:=numneg+1
	end;

if typ6=1 then 
	begin
            poslat:=poslat+lat6;
            numpos:=numpos+1
	end;
	
if typ6=-1 then begin
	neglat:=neglat+lat6;
	numneg:=numneg+1
	end;

if typ7=1 then 
	begin
            poslat:=poslat+lat7;
            numpos:=numpos+1
	end;
	
if typ7=-1 then begin
	neglat:=neglat+lat7;
	numneg:=numneg+1
	end;

if typ8=1 then 
	begin
            poslat:=poslat+lat8;
            numpos:=numpos+1
	end;
	
if typ8=-1 then begin
	neglat:=neglat+lat8;
	numneg:=numneg+1
	end;

if typ9=1 then 
	begin
            poslat:=poslat+lat9;
            numpos:=numpos+1
	end;
	
if typ9=-1 then begin
	neglat:=neglat+lat9;
	numneg:=numneg+1
	end;

if typ10=1 then 
	begin
            poslat:=poslat+lat10;
            numpos:=numpos+1
	end;
	
if typ10=-1 then begin
	neglat:=neglat+lat10;
	numneg:=numneg+1
	end;

if typ11=1 then 
	begin
            poslat:=poslat+lat11;
            numpos:=numpos+1
	end;
	
if typ11=-1 then begin
	neglat:=neglat+lat11;
	numneg:=numneg+1
	end;

if typ12=1 then 
	begin
            poslat:=poslat+lat12;
            numpos:=numpos+1
	end;
	
if typ12=-1 then begin
	neglat:=neglat+lat12;
	numneg:=numneg+1
	end;

if typ13=1 then 
	begin
            poslat:=poslat+lat13;
            numpos:=numpos+1
	end;
	
if typ13=-1 then begin
	neglat:=neglat+lat13;
	numneg:=numneg+1
	end;

if typ14=1 then 
	begin
            poslat:=poslat+lat14;
            numpos:=numpos+1
	end;
	
if typ14=-1 then begin
	neglat:=neglat+lat14;
	numneg:=numneg+1
	end;

if typ15=1 then 
	begin
            poslat:=poslat+lat15;
            numpos:=numpos+1
	end;
	
if typ15=-1 then begin
	neglat:=neglat+lat15;
	numneg:=numneg+1
	end;

if typ16=1 then 
	begin
            poslat:=poslat+lat16;
            numpos:=numpos+1
	end;
	
if typ16=-1 then begin
	neglat:=neglat+lat16;
	numneg:=numneg+1
	end;