Program Exercice06;

Var 
    n, i : Integer;
    premier : Boolean;

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