MontyHall:=
{
(* A função retorna 1 se ganha ao trocar *)
Premio=RandomInteger[{1,3}];
EscolhaInicial=RandomInteger[{1,3}];
EscolhaApresentador=1;
Do[If[Or[EscolhaApresentador==Premio,EscolhaApresentador==EscolhaInicial],EscolhaApresentador++],{i,1,2}];
Output=If[EscolhaInicial==Premio,0,1]
}[[1]]

SimulaMH[n_]:=
{
T=Table[MontyHall,{i,1,n}];
Sucesso=Sum[T[[i]],{i,1,n}];
Print["Taxa de sucesso=",Sucesso/n]
}