\documentclass[a4paper,12pt]{report}

\usepackage{graphicx}
\usepackage{amsthm,amssymb,amsmath,mathrsfs,amsfonts}
\begin{document}
\newcount\mycounter
\newcount\elevation
\def\repeatc#1{\mycounter=0
\loop \ifnum\mycounter<#1 \advance \mycounter by 1
\elevation = \mycounter
\multiply\elevation  by -4
\advance \elevation  by 25
\multiput(60,\elevation)(7,0){5}{\number\mycounter}\repeat}



\setlength{\unitlength}{1mm}
\begin{picture}(30, 40)
%\multiput(x, y)(Δx,Δy){n}{object}
\multiput(60,30)(7,0){5}{\circle*{1}}
\multiput(60,30)(1,0){7}{\circle*{0.5}}
\repeatc{6}
\end{picture}

\end{document}