Programme pour afficher N lignes d'étoiles dont le nombre augmente d'une ligne à celle qui la succcéde.
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.
