data a;
	array pais pais1 pais2 pais3;
	array gambler gambler1 gambler2 gambler3;
	do j=1 to 1000000;
		do k=1 to 3;
			pais{k}=int(10*ranuni(-123));
			gambler{k}=int(10*ranuni(-123));
		end;
		if min(of pais{*})=	max(of pais{*})	
			then type='3 identical digits';
		else if min(of pais{*})<median(of pais{*}) and median(of pais{*})<max(of pais{*})	
			then type='3 different digits';
		else type='2 different digits';
		if min(of pais{*})=min(of gambler{*}) and 
			 median(of pais{*})=median(of gambler{*}) and
			 max(of pais{*})=max(of gambler{*}) 
		then
			win=1;
		else
			win=0; 
		output;
	end;
	drop k;
run;

proc means data=a noprint;
	var win;
	class type;
	output out=o n=ncases sum=nwins mean=pwin;
run;

data o;
	set o;
	odds=1/pwin;
run;

proc print data=o; 
run;