sequential; 
v217:=0;
v218:=0;
v219:=0;
v220:=0;

IF V4=4 then begin

if v102>0 then v217:=v217+1;
if v109>0 then v219:=v219+1;
if v116>0 then v217:=v217+1;
if v123>0 then v219:=v219+1;
if v130>0 then v217:=v217+1; 
if v137>0 then v219:=v219+1;
if v144>0 then v217:=v217+1;
if v151>0 then v219:=v219+1;
if v158>0 then v217:=v217+1;
if v165>0 then v219:=v219+1;
if v172>0 then v217:=v217+1;
if v179>0 then v219:=v219+1;
if v186>0 then v217:=v217+1;
if v193>0 then v219:=v219+1;
if v200>0 then v217:=v217+1;
if v207>0 then v219:=v219+1;

if v6=1 then v218:=v218+1;
if v12=1 then v220:=v220+1;
if v18=1 then v218:=v218+1;
if v24=1 then v220:=v220+1;
if v30=1 then v218:=v218+1;
if v36=1 then v220:=v220+1;
if v42=1 then v218:=v218+1;
if v48=1 then v220:=v220+1;
if v54=1 then v218:=v218+1;
if v60=1 then v220:=v220+1;
if v66=1 then v218:=v218+1;
if v72=1 then v220:=v220+1;
if v78=1 then v218:=v218+1;
if v84=1 then v220:=v220+1;
if v90=1 then v218:=v218+1;
if v96=1 then v220:=v220+1;
end;

if v4=3 then begin
if v102>0 then v219:=v219+1;
if v109>0 then v217:=v217+1;
if v116>0 then v219:=v219+1;
if v123>0 then v217:=v217+1;
if v130>0 then v219:=v219+1; 
if v137>0 then v217:=v217+1;
if v144>0 then v219:=v219+1;
if v151>0 then v217:=v217+1;
if v158>0 then v219:=v219+1;
if v165>0 then v217:=v217+1;
if v172>0 then v219:=v219+1;
if v179>0 then v217:=v217+1;
if v186>0 then v219:=v219+1;
if v193>0 then v217:=v217+1;
if v200>0 then v219:=v219+1;
if v207>0 then v217:=v217+1;

if v6=1 then v220:=v220+1;
if v12=1 then v218:=v218+1;
if v18=1 then v220:=v220+1;
if v24=1 then v218:=v218+1;
if v30=1 then v220:=v220+1;
if v36=1 then v218:=v218+1;
if v42=1 then v220:=v220+1;
if v48=1 then v218:=v218+1;
if v54=1 then v220:=v220+1;
if v60=1 then v218:=v218+1;
if v66=1 then v220:=v220+1;
if v72=1 then v218:=v218+1;
if v78=1 then v220:=v220+1;
if v84=1 then v218:=v218+1;
if v90=1 then v220:=v220+1;
if v96=1 then v218:=v218+1;
end;