Program Exercice01;

Var 
    n, i, nom, somme : Integer;

Begin
	WriteLn('Veuillez donner le nombre des nombres');
	ReadLn(n);
	
	somme := 0;
	
	For i := 1 to n Do
	Begin
		WriteLn('Donnez le ', i, 'ème nombre');
		ReadLn(nom);
		
		somme := somme + nom;
	End;
	
	WriteLn('La somme des nombres saisis est : ', somme);
	
End.