公式二
function sadgs( qs: integer): integer;
var
myvar0,myvar1,myvar2,myvar3,myvar4,myvar5,myvar6,myvar7,myvar8,myvar9,myvar10,
myvar11,myvar12,myvar13,myvar14,myvar15,myvar16,myvar17,myvar18,myvar19,myvar20,
myvar21,myvar22,myvar23,myvar24,myvar25,myvar26,myvar27,myvar28,myvar29,myvar30,
myvar31,myvar32,myvar33,myvar34,myvar35,myvar36,myvar37,myvar38,myvar39,myvar40,
myvar41,myvar42,myvar43,myvar44,myvar45,myvar46,myvar47,myvar48,myvar49,myvar50,myvar51 : integer;
begin
myvar1 :=imod(r1)*100+imod(r2)*10 ;
myvar2 :=myvar1+imod(r3) ;
myvar3 :=myvar1+imod(r4) ;
myvar4:=myvar1+imod(r5) ;
myvar5:=myvar1+imod(r6) ;
myvar6 :=imod(r1)*100+imod(r3)*10 ;
myvar7:=myvar6+imod(r4) ;
myvar8:=myvar6+imod(r5) ;
myvar9:=myvar6+imod(r6) ;
myvar10 :=imod(r1)*100+imod(r4)*10 ;
myvar11 :=myvar10+imod(r5);
myvar12 :=myvar10+imod(r6);
myvar13 :=imod(r1)*100+imod(r5)*10+imod(r6) ;
myvar14 :=imod(r2)*100+imod(r3)*10 ;
myvar15 :=myvar14 +imod(r4);
myvar16 :=myvar14 +imod(r5);
myvar17 :=myvar14 +imod(r6) ;
myvar18 :=imod(r2)*100+imod(r4)*10 ;
myvar19 :=myvar18+imod(r5) ;
myvar20 :=myvar18+imod(r6) ;
myvar21 :=imod(r2)*100+imod(r5)*10+imod(r6) ;
myvar22 :=imod(r3)*100+imod(r4)*10;
myvar23 :=myvar22+imod(r5) ;
myvar24 :=myvar22+imod(r6) ;
myvar25 :=imod(r4)*100+imod(r5)*10+imod(r6);
myvar0 :=imod(r3)*100+imod(r5)*10+imod(r6) ;
myvar26 :=imod(hr1(qs))*100+imod(hr2(qs))*10 ;
myvar27 :=myvar26+imod(hr3(qs)) ;
myvar28 :=myvar26+imod(hr4(qs)) ;
myvar29 :=myvar26+imod(hr5(qs)) ;
myvar30 :=myvar26+imod(hr6(qs)) ;
myvar31 :=imod(hr1(qs))*100+imod(hr3(qs))*10 ;
myvar32 := myvar31+imod(hr4(qs)) ;
myvar33 := myvar31+imod(hr5(qs)) ;
myvar34 := myvar31+imod(hr6(qs)) ;
myvar35 :=imod(hr1(qs))*100+imod(hr4(qs))*10 ;
myvar36 := myvar35+imod(hr5(qs));
myvar37 := myvar35+imod(hr6(qs));
myvar38 :=imod(hr1(qs))*100+imod(hr5(qs))*10+imod(hr6(qs)) ;
myvar39 :=imod(hr2(qs))*100+imod(hr3(qs))*10 ;
myvar40 :=myvar39 +imod(hr4(qs));
myvar41 :=myvar39 +imod(hr5(qs));
myvar42 :=myvar39 +imod(hr6(qs)) ;
myvar43 :=imod(hr2(qs))*100+imod(hr4(qs))*10 ;
myvar44 :=myvar43+imod(hr5(qs)) ;
myvar45 :=myvar43+imod(hr6(qs)) ;
myvar46 :=imod(hr2(qs))*100+imod(hr5(qs))*10+imod(hr6(qs)) ;
myvar47 :=imod(hr3(qs))*100+imod(hr4(qs))*10;
myvar48 :=myvar47+imod(hr5(qs)) ;
myvar49 :=myvar47+imod(hr6(qs)) ;
myvar50 :=imod(hr4(qs))*100+imod(hr5(qs))*10+imod(hr6(qs)) ;
myvar51 :=imod(hr3(qs))*100+imod(hr5(qs))*10+imod(hr6(qs));
result:=IIF((incount([myvar2],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar3],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar4],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar5],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar7],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar8],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar9],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar11],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar12],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar13],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar15],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar16],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar17],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar19],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar20],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar21],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar23],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar24],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar25],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1)+
IIF((incount([myvar0],[myvar27,myvar28,myvar29,myvar30,myvar32,myvar33,myvar34,myvar36,myvar37,myvar38,
myvar40,myvar41,myvar42,myvar44,myvar45,myvar46,myvar48,myvar49,myvar50,myvar51]))>=1);
end;