Program Exercice03;

Var 
    n, i, fact : Integer;

Begin
	WriteLn('Ce programme calcule le factoriel d''un nombre');
	
	{ Cette boucle force la lecture d'un nombre positif }
	Repeat
		WriteLn('Donnez un nombre positif');
		ReadLn(n);
	until(n >= 0);
	
	fact := 1;
	{ Si n est "0", le programme n'entrera pas dans la boucle }
	For i := 1 to n Do
		fact := fact * i;
		
	WriteLn('Le factoriel de ', n, ' est ', fact);
		
End.