Program Exercice10;

Var 
    n, i, j : Integer;

Begin
	{ Cette boucle force la lecture d'un nombre > 1 }
	Repeat
		WriteLn('Donnez un nombre :');
		ReadLn(n);
	Until(n > 1);
	
	WriteLn('');
	
	For i := 1 to n Do
	Begin
		For j := 1 to i Do
			Write('*');
		WriteLn('');
	End;
	
End.