% Fichier ex12.3.3-5.tex - Ch. Rolland/O Reilly France
\documentclass{article}
\usepackage[latin1]{inputenc}
\usepackage{moreverb}
\begin{document}
La procédure \textit{bonjour}~:
\begin{listing}[2]{4}
procedure bonjour;
var i,z:integer;
begin
  for i:=1 to MAX do
    begin
      writeln('Bonjour !');
      z:=z+1
    end
  writeln(z,'fois bonjour.')
end;
\end{listing}
Puis le corps du programme~:
\begin{listingcont}
{ Début du programme }
begin
  bonjour
end.
\end{listingcont}
\end{document}
