\foreach \i in {1,2,...,100}
{
	\pgfmathparse{0}\global\let\f\pgfmathresult
	\foreach \j in {1,2,...,25}
	{
		\FPrandom\hasard%
		\FPupn\result{6 \hasard{} * 1 + 0 trunc}
		\result
		\ifnum\result=2
			\pgfmathparse{\f+1}\global\let\f\pgfmathresult
		\else
			\ifnum\result=3
				\pgfmathparse{\f+1}\global\let\f\pgfmathresult
			\else
				\ifnum\result=5
					\pgfmathparse{\f+1}\global\let\f\pgfmathresult
				\fi
			\fi
		\fi
	}
	\pgfmathparse{10*\f/25}\global\let\f\pgfmathresult
	\fill[red] ({0.1*\i},\f) circle (2pt);
}