\documentclass[openany]{book}
\usepackage[top=20mm, bottom=15mm, left=20mm, right=20mm]{geometry}
\usepackage{xepersian}
\settextfont[Scale=1]{Yas}
\newtheorem{example}{مثال}[section] 
 \begin{document}
\begin{example}
مثال 
\end{example}
\end{document}