program premiers_essais;

{ declaration de variables, i et j, de type entier }

var i,j : integer;

begin

  { on dit bonjour }

  writeln('bonjour !!!');


   
  { on essaye la boucle tant que... }

  i := 1;
  while (i <= 100) do begin
    writeln(i);
    i := i+1;
  end;

   

  { on essaye la boucle repeter ... }

  i := 1;
  repeat
    writeln(i);
    i := i+1;
  until (i > 100);



  { on essaye la boucle pour ... }

  for i:=1 to 100 do begin
    writeln(i);
  end;


   
  { on essaye de compter a l'infini... comment sont codes les integer ? }

  i := 1;
  while (i > 0) do begin
    writeln(i);     
    i := i+1;     
  end;

  writeln(i);


   
  { un carre d'etoiles }

  for j:=1 to 5 do begin

    { une ligne d'etoiles }

    for i:=1 to 5 do begin
      write('*');
    end;
    writeln;

  end;



  { une table de multiplication }

  for j:=1 to 5 do begin

    for i:=1 to 5 do begin
      write(i*j:3);
    end;
    writeln;

  end;


   
  { un triangle rectangle d'etoiles }

  for j:=1 to 5 do begin

    { une ligne de j etoiles }

    for i:=1 to j do begin
      write('*');
    end;
    writeln;

  end;


end.