rand:=random(3)+1;
                                if(rand=1) then
                                ax:=ax+1
                                else if(rand=2) then
                                bx:=bx+1
                                else
                                cx:=cx+1;