\documentclass[tikz, border=10pt,convert=true]{standalone}
\usepackage[]{tkz-euclide}
%\usetikzlibrary{shapes.geometric,calc}

\begin{document}
\begin{tikzpicture}[scale=3]
    \tkzDefPoints{0/0/M, 1/1/B}
    \tkzDefRegPolygon[center,sides=4,name=P](M,B)
    \tkzDrawPolygon[very thick,red](P1,P...,P4)
    \tkzDefRegPolygon[center,sides=8,name=Q](M,B)
    \tkzDrawPolygon[very thick,blue](Q1,Q...,Q8)
    \tkzDefRegPolygon[center,sides=16,name=R](M,B)
    \tkzDrawPolygon[very thick,green](R1,R...,R16)
    \tkzDrawCircle[very thick,black](M,B)
    \foreach \j in {1,...,16} {
        \tkzDrawSegment[gray](R\j, M)
    }
\end{tikzpicture}

\end{document}

