\documentclass[12pt]{report}

% Defining new counters
\newcounter{author}
\setcounter{author}{1}

\makeatletter
\def\AuthorsInfo{}
\def\Abstract#1{\def\@bstract{#1}}
\def\Title#1{\def\@title{#1}}

\newif\ifempty
\def\isempty#1{%
  \sbox0{#1}%
  \ifdim\wd0=0pt
    \emptytrue \typeout{The Box is Empty}
  \else
    \emptyfalse\typeout{The Box is FULL}
  \fi
}




% Defining Author Macros
\def\AddAuthor#1#2{\ifdefined\Authors
\xdef\Authors{\Authors,  #1$^\arabic{author}$}
\xdef\authors{\authors,  #1}
\isempty{#2}
\ifempty
\else
     \xdef\AuthorsInfo{\AuthorsInfo  $^\arabic{author}$#2\par}
\fi
\addtocounter{author}{1}
\else
\addtocounter{author}{-1}
\gdef\Authors{#1$^\arabic{author}$}
\gdef\authors{#1}
\gdef\AuthorsInfo{$^\arabic{author}$#2\par}
\addtocounter{author}{2}
\fi}


% Defining Make Macro to typest the information 
\def\Make{
\clearpage
{\centering
{\bfseries \Large\@title\\}
\Authors\\
\AuthorsInfo}
\par
\let\Authors\undefined
\let\AuthorsInfo\undefined
\let\@title\undefined
\setcounter{author}{1}
}
\makeatother


\begin{document}

\Title{A very smal Article}
\AddAuthor{A. Yaghoubi}{}
\AddAuthor{A. Yaghoubi}{}
\AddAuthor{S. Gehibi}{}
\AddAuthor{Farschad Torabi}{Somewhere in the world}
\Make


\end{document}