\documentclass[english]{article}
\usepackage{pstricks}
\usepackage{wrapfig}
\usepackage{blindtext,babel}
\usepackage{empheq}
\usepackage{verbatim}
\usepackage{pstricks,pst-func,fullpage}
\usepackage{multicol,color}
\usepackage{xepersian}
\settextfont{Yas}
\setdigitfont{Yas}
\definecolor{mycolor}{rgb}{0,0.6,1}
\newcounter{question}
\newenvironment{mcquestions}{\begin{itemize}}{\end{itemize}}
\newcommand{\question}[1]{\stepcounter{question}\item[\textcolor{mycolor}{\thequestion.}] #1}
\newsavebox{\answera}
\newsavebox{\answerb}
\newsavebox{\answerc}
\newsavebox{\answerd}
\newcommand{\answer}[4]{%
\sbox\answera{#1}%
\sbox\answerb{#2}%
\sbox\answerc{#3}%
\sbox\answerd{#4}%
\ifdim\wd\answera<0.165\textwidth%
\ifdim\wd\answerb<0.165\textwidth%
\ifdim\wd\answerc<0.165\textwidth%
\ifdim\wd\answerd<0.165\textwidth%
\begin{multicols}{4}
\begin{itemize}
\item[\textcolor{mycolor}{1)}] \usebox{\answera}
\item[\textcolor{mycolor}{2)}] \usebox{\answerb}
\item[\textcolor{mycolor}{3)}] \usebox{\answerc}
\item[\textcolor{mycolor}{4)}] \usebox{\answerd}
\end{itemize}
\end{multicols}
\else%
\ifdim\wd\answera<0.4\textwidth%
\ifdim\wd\answerb<0.4\textwidth%
\ifdim\wd\answerc<0.4\textwidth%
\ifdim\wd\answerd<0.4\textwidth%
\begin{multicols}{2}
\begin{itemize}
\item[\textcolor{mycolor}{1)}] \usebox{\answera}
\item[\textcolor{mycolor}{3)}] \usebox{\answerc}
\item[\textcolor{mycolor}{2)}] \usebox{\answerb}
\item[\textcolor{mycolor}{4)}] \usebox{\answerd}
\end{itemize}
\end{multicols}
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi\fi
\else
\ifdim\wd\answera<0.4\textwidth%
\ifdim\wd\answerb<0.4\textwidth%
\ifdim\wd\answerc<0.4\textwidth%
\ifdim\wd\answerd<0.4\textwidth%
\begin{multicols}{2}
\begin{itemize}
\item[\textcolor{mycolor}{1)}] \usebox{\answera}
\item[\textcolor{mycolor}{3)}] \usebox{\answerc}
\item[\textcolor{mycolor}{2)}] \usebox{\answerb}
\item[\textcolor{mycolor}{4)}] \usebox{\answerd}
\end{itemize}
\end{multicols}
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi\fi
\else
\ifdim\wd\answera<0.4\textwidth%
\ifdim\wd\answerb<0.4\textwidth%
\ifdim\wd\answerc<0.4\textwidth%
\ifdim\wd\answerd<0.4\textwidth%
\begin{multicols}{2}
\begin{itemize}
\item[\textcolor{mycolor}{1)}] \usebox{\answera}
\item[\textcolor{mycolor}{3)}] \usebox{\answerc}
\item[\textcolor{mycolor}{2)}] \usebox{\answerb}
\item[\textcolor{mycolor}{4)}] \usebox{\answerd}
\end{itemize}
\end{multicols}
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi\fi
\else
\ifdim\wd\answera<0.4\textwidth%
\ifdim\wd\answerb<0.4\textwidth%
\ifdim\wd\answerc<0.4\textwidth%
\ifdim\wd\answerd<0.4\textwidth%
\begin{multicols}{2}
\begin{itemize}
\item[\textcolor{mycolor}{1)}] \usebox{\answera}
\item[\textcolor{mycolor}{3)}] \usebox{\answerc}
\item[\textcolor{mycolor}{2)}] \usebox{\answerb}
\item[\textcolor{mycolor}{4)}] \usebox{\answerd}
\end{itemize}
\end{multicols}
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi
\else
\begin{itemize}
\item[\textcolor{mycolor}{1)}] #1
\item[\textcolor{mycolor}{2)}] #2
\item[\textcolor{mycolor}{3)}] #3
\item[\textcolor{mycolor}{4)}] #4
\end{itemize}
\fi\fi
}
\begin{document}

 \begin{wrapfigure}{l}{0.4\textwidth}
 \vspace{-30pt}
\begin{center}
\begin{pspicture}(-0.5,-0.5)(4,4)
\psset{algebraic=true}
\psgrid[subgriddiv=1,griddots=10,gridlabels=10pt](-0.5,-0.5)(4,4)
\uput[l](0,4){V}
\uput[r](4,0){T}
\uput[r](3.5,2.5){$ P_{2} $}
\uput[r](3,3){$ P_{1} $}
\psline{->}(-0.5,0)(4,0)
\psline{->}(0,-0.5)(0,4)
\psline(0.6,0.6)(3,3)
\uput[r](1.35,.4){$30^{\circ}$}
\uput[r](-0.1,0.85){$45^{\circ}$}
\psarc[arcsepB=0.5pt]
{<->}%
(0,0){.5}{45}{90}
\psarc[arcsepB=0.5pt]
{<->}%(0.8,0.5)
(0,0){1.5}{0}{30}
\psline[linestyle=dotted](0,0)(0.8,0.45)
\psline(0.8,0.45)(4,2.2)
\psline[linestyle=dotted](0,0)(1,1)
\end{pspicture}
\end{center}
\vspace{-20pt}
  \caption{A gull}
  \vspace{-20pt}
\end{wrapfigure}
\begin{mcquestions}
\question{
 مقدار معینی گاز طی دو فرایند جداگانه‌ی هم فشار متحول شده است. مسیر این دو تحول در شکل نشان داده شده است. نسبت   $ \dfrac{P_{2}}{P_{1}} $ کدام است؟ (مقیاس‌ها روی دو محور یکسان است.)
}
\answer{$ \dfrac{\sqrt{2}}{2} $}{$ \dfrac{\sqrt{6}}{3} $}{$ \sqrt{3} $}{$\dfrac{\sqrt{3}}{3}  $}

خبرگزاري فارس: عضو مجمع نمايندگان روحاني مجلس گفت كه در جلسه امروز اين مجمع با وزير خارجه، صالحي از رايزني وزارت امور خارجه با سفراي مقيم تهران براي جلوگيري از قتل عام مردم بحرين توسط نظاميان سعودي خبرخبرگزاري فارس: عضو مجمع نمايندگان روحاني مجلس گفت كه در جلسه امروز اين مجمع با وزير خارجه، صالحي از رايزني وزارت امور خارجه با سفراي مقيم تهران براي جلوگيري از قتل عام مردم بحرين توسط نظاميان سعودي خبرخبرگزاري فارس: عضو مجمع نمايندگان روحاني مجلس گفت كه در جلسه امروز اين مجمع با وزير خارجه، صالحي از رايزني وزارت امور خارجه با سفراي مقيم تهران براي جلوگيري از قتل عام مردم بحرين توسط نظاميان سعودي خبرخبرگزاري فارس: عضو مجمع نمايندگان روحاني مجلس گفت كه در جلسه امروز اين مجمع با وزير خارجه، صالحي از رايزني وزارت امور خارجه با سفراي مقيم تهران براي جلوگيري از قتل عام مردم بحرين توسط نظاميان سعودي خبر

\end{mcquestions}
\end{document}