\documentclass[12pt]{article}
\usepackage[latin1]{inputenc}
\usepackage[frenchb]{babel}
\usepackage{amsmath}
\usepackage{xcolor,graphicx}
\usepackage[charter]{mathdesign}
\renewcommand{\ttdefault}{lmtt}
\usepackage[margin=2cm]{geometry}
\pagestyle{empty}
\parindent0pt
\newcommand{\MarqueCommandeGiac}[1]{%
\color[HTML]{8B7500}$\rightarrow$}
\newcommand{\MarqueLaTeXGiac}{%
\color[HTML]{1E90FF}}
\newcommand{\InscriptionFigureGiac}[1]{%
\begin{center}
\includegraphics[width=0.7\linewidth]{#1}
\end{center}}
\begin{document}
\section*{Un peu de géométrie}
{\MarqueCommandeGiac{1} \verb| read("figure.g");|}
\InscriptionFigureGiac{test02-01.pdf}
Voici le fichier \texttt{figure.g}:
\begin{verbatim}
//Médiatrice d'un segment
1;
A:=point(-1.0-2.0*(i));
B:=point(2.0+3.0*(i));
E:=segment(A,B);
C1:=cercle(A,B-A,'affichage'=(64+line_width_2));
C2:=cercle(B,A-B,'affichage'=101);
D:=droite(inter(C1,C2));
M:=inter(segment(A,B),D);
\end{verbatim}
\end{document}