> Fabrice Couvreur <mailto:fabrice1.couvreur@gmail.com>
> 29. Juli 2016 um 16:43
> 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 ?
You can use the lines environment with enabled spaces (space=on).

\defineframedtext
   [algorithmframe]
   [width=fit,
    background=color,
    backgroundcolor=lightgray,
    framecolor=darkred,
    corner=round]

\definelines
   [algorithm]
   [space=on,
    before=\startalgorithmframe,
    after=\stopalgorithmframe]

\starttext

\startalgorithm
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
\stopalgorithm

\stoptext

Wolfgang