\documentclass{article}
\usepackage[cp1251]{inputenc}
\usepackage[russian]{babel}
\usepackage{amsmath}
\usepackage[top=10mm, bottom=10mm]{geometry}

\newcounter{lunatiki}
\setcounter{lunatiki}{10}

\newcounter{negrityata}
\setcounter{negrityata}{10}

\begin{document}

\newcommand{\lun}{
{\par \parindent=0mm \bf \thelunatiki} лунатиков жили на луне...%
\\{\bf \thelunatiki} лунатиков ворочались во сне...%
\\ И вот один лунатик упал с луны во сне%
\addtocounter{lunatiki}{-1} %
\\И {\bf \thelunatiki} лунатиков осталось на луне :)\\}

\newcommand{\negr}{
{\par \parindent=0mm \bf \thenegrityata} негритят жили в Африке...%
\\А в это время {\bf \thenegrityata} лунатиков ворочались во сне...%
\\ И вот один лунатик упал с луны во сне%
\addtocounter{negrityata}{-1} %
\\И {\bf \thenegrityata} негритят осталось в Африке :)\\}

\section{Lunatiki}

\lun\lun\lun\lun\lun\lun\lun\lun\lun\lun

\section{Negrityata}

\negr\negr\negr\negr\negr\negr\negr\negr\negr\negr
\end{document}