\documentclass[a4paper,10pt]{article}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{lmodern}
\usepackage[french]{babel}

\usepackage{xcolor}

\definecolor{geoKeyword}{RGB}{153,0,51}
\definecolor{geoCommand}{RGB}{0,0,123}
\definecolor{geoNumbercolor}{RGB}{181,181,181}
\definecolor{geoText}{RGB}{255,0,192}
\definecolor{geoFonction}{RGB}{51,51,51}

\usepackage{listings}

\lstdefinelanguage{Geotortue}{
morekeywords={rep, remplis, si, tant_que, boucle, écris, à, aff, def, eff, init, pause, mg, photo, retiens, retourne, pour, fin, dis},
morekeywords=[2]{av, re, td, tg, vg, ct, mt, lc, bc, crayon, palette, pvd, pvg, pvh, pvb, miroir, tlp, boussole, vise, imite, pvxy, pvxz, pvyz},
morekeywords=[3]{sqrt, abs, reste, sin, cos, tan, asin, acos, atan, sinh, cosh, tanh, asinh, acosh, atanh, ln, log, round, floor, binom, rand, alea},
morestring=[b][\color{geoText}]",
}
\renewcommand*\thelstnumber{\the\value{lstnumber}>}
\lstdefinestyle{numbers}{
    numbers=left, 
    stepnumber=1, 
    numberstyle=\tiny\ttfamily\color{geoNumbercolor},
    xleftmargin=2em,
    numbersep=2pt,
}
\lstdefinestyle{mygeotortue}{
        language=Geotortue,
        basicstyle=\ttfamily,
        keywordstyle={\color{geoKeyword}\bfseries}, 
        keywordstyle=[2]{\color{geoCommand}\bfseries},
        keywordstyle=[3]{\color{geoFonction}\bfseries},
}

\begin{document}

\begin{lstlisting}[language=Geotortue, style=mygeotortue, style=numbers]
pour carre
rep 2 [av 8 ; td 90 ; av sqrt(64) ; td 90]
fin
\end{lstlisting}

\end{document}