Algorithmique et Structures de Données Statiques

Très bien.

Program Stars;
Var N, i, a :integer;
Const star='*';
Begin
a:=0;
WriteLN('Introduire le nombre');
ReadLN(N);
repeat
 for i:=0 to a do
  begin
   Write(star);
  end;
 WriteLN;
 a:=a+1;
until (a=N);
end.

hi