{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************

TP 3, EXERCICE 2 }

program motif_horizontal;  {nom du programme, facultatif}
uses crt;    {d‚claration de l'unique unit‚ utilis‚e}
var i,j:integer;  {d‚claration des 2 variables (des entiers) n‚cessaires
                  aux boucles du programme}
const colones=20;    {le nombre de termes est d‚finit en constante}

BEGIN        {d‚but du programme}
clrscr;             {efface l'‚cran}
for i:=1 to colones do    {bloc boucle finie}
    begin
    for j:=1 to i do write(j,' ');      {‚criture de la valeur de j}
    writeln('');                        {saut de ligne}
    delay(50);                          {pause de 50 ms}
    end;              {fin de boucle}
readln;         {pause jusqu'… qu'une touche soit press‚e}
END.        {fin du programme}