Procedimiento de sorteo aleatorio por equipos
Irregularizar
Para i=0 a 7
Si int( rnd*2 )=0 y iA & lt entonces 4
Equipo(i)="A "
iA=iA+1
elseif iB & lt Entonces 4
Equipo(i)="B "
iB=iB+1
Otros
Equipo(i)=" A "
finalizará si...
entonces
para i=0 a 7
if team(i)="A "Entonces
Imprimir "primero" & I+1 & "Equipo A"
Otros
Imprimir "primero" & I+1 & "Equipo B"
endif
Entonces