Program Exercice11;

Var 
    n, i, j : Integer;
    premier : Boolean;

Begin
	{ Cette boucle force la lecture d'un nombre > 1 }
	Repeat
		WriteLn('Donnez un nombre :');
		ReadLn(n);
	Until(n > 1);
	
	For i := 2 to n Do
	Begin
		premier := True;
		j := 2;
	
		While ((j < i) And premier) Do
		Begin
			If (i Mod j = 0) Then
				premier := False;
			j := j + 1;
		End;
	
		If (premier) Then
			WriteLn(i, ' est premier')
	End;
	
End.