\documentclass[a4paper,12pt,twoside]{book}
\usepackage[algochapter,linesnumbered]{algorithm2e}
\usepackage{xepersian}
\settextfont[Scale=1]{Yas}
\setlatintextfont[Scale=0.9]{Arial}
\setdigitfont[Scale=0.9]{Yas}
%%%%%%%%%%%%%%%%%%%%%%%%
 \SetAlgorithmName{الگوریتم}{الگوریتم}{لیست الگوریتم‌ها}
\SetKwInput{KwIn}{ورودی}
\SetKwInput{KwOut}{خروجی}
\SetKw{KwRet}{برگردان}
\SetKw{Return}{را~برگردان}
\SetKw{ReturnZero}{برگرد}
\SetKw{Start}{شروع}
\SetKw{End}{پایان}
\SetKw{Get}{را~بگیر}
%\SetKwProg{Get}{}{را از ورودی دریافت کن}{دد}
\SetKw{Print}{را~چاپ~کن}
\SetKwFor{For}{برای}{..}{...}
\SetKwIF{If}{ElseIf}{Else}{اگر}{آنگاه}{درغیراینصورت اگر}{درغیراینصورت}{پایان~اگر}

%*********************
\begin{document}
\chapter{}
\section{}

\begin{algorithm}[H]
\DontPrintSemicolon
 \Start\;
$n$   \Get\;
$i\leftarrow 1$ و $FACT\leftarrow 1$\;
\If{$i\leq n$}{
		$FACT\leftarrow FACT \times i$\;
		$i\leftarrow i+1$\;
		به خط 4 برو\;
	}
$FACT$ \Print\;
 \End
 \caption{ الگوریتم  محاسبۀ فاکتوریل  یک عدد }\label{alg:fact}
\end{algorithm}

\end{document} 