M1:=10;P:=1;HH:=CONST(HHV(H,M1));LL:=CONST(LLV(L,M1));BC:=(HH-LL)/10;C1:=HH;C2:=HH-BC*1;C3:=HH-BC*2;C4:=HH-BC*3;C5:=HH-BC*4;C6:=HH-BC*5;C7:=HH-BC*6;C8:=HH-BC*7;C9:=HH-BC*8;C10:=HH-BC*9;C11:=LL;W1:=INTPART(LWINNER(M1,C1)*100-LWINNER(M1,C2)*100)/P;W2:=INTPART(LWINNER(M1,C2)*100-LWINNER(M1,C3)*100)/P;W3:=INTPART(LWINNER(M1,C3)*100-LWINNER(M1,C4)*100)/P;W4:=INTPART(LWINNER(M1,C4)*100-LWINNER(M1,C5)*100)/P;W5:=INTPART(LWINNER(M1,C5)*100-LWINNER(M1,C6)*100)/P;W6:=INTPART(LWINNER(M1,C6)*100-LWINNER(M1,