% Vendredi 28 Mai 2004 à 04:31:59

\begin{center}
  \fbox{Euclide, Bezout, pgcd, Fibonacci et compagnie}
\end{center}
% valeurs de départ
\newcommand\SuiteBezout[2]{%
  \opcopy{#1}{r0}
  \opcopy{#2}{r1}
  \loop
    \opidiv*{r0}{r1}{q}{r}%
    \opcmp{r}{0}
  \ifopneq
    \opidiv[style=text]{r0}{r1}\endgraf
    \opcmp{r}{0}%
    \endgraf
    \opcopy{r1}{r0}
    \opcopy{r}{r1}
  \repeat
}
\begin{minipage}{3.5cm}
\SuiteBezout{273}{29}
\end{minipage}\hfill
\begin{minipage}{3.5cm}
\SuiteBezout{55}{34}
\end{minipage}\hfill
\begin{minipage}{3.5cm}
\SuiteBezout{104}{65}
\end{minipage}