Program Exercice05;

Var 
    nombre, somme : Integer;

Begin
	
	somme := 0;
	
	{ Lecture des nombres }
	Repeat
		WriteLn('Donnez un nombre');
		ReadLn(nombre);
		
		If(nombre > 0)Then
			somme := somme + nombre;
			
	Until(nombre = -1);
	
	If(somme = 0)Then
		WriteLn('Aucun nombre positif n'' été saisi')
	Else
		WriteLn('La somme des nombres positifs saisis est ', somme);
	
End.