I know that Wolfgang wrote a module to reproduce algorithms, but it is in
English !
Can we ensure to respect the withdrawal of the text ?

\starttext

\framedtext
  [align={middle,verytolerant,
   fit,nothyphenated,stretch},
   width=0.4\textwidth,
   background=color,
   backgroundcolor=lightgray,
   framecolor=darkred,
   corner=00,]


  Variables \math{I} et \math{J} entiers

  T tableau d'entiers

  Début

  Pour \math{I} allant de \math{1} à \math{3}

     Pour \math{J} allant de \math{1} à \math{3}

       Si \math{J>I}

          Alors \math{T[I, J]=J-I}

          Sinon \math{T[I, J]=0}

       Fin Si

     Fin Pour

  Fin

}


\stoptext

Thanks,
Fabrice