Program Exercice02Q03;

Var 
    n : Integer;

Begin
	WriteLn('Donnez un nombre');
	ReadLn(n);
	
	If(n Mod 2 = 0)Then
		WriteLn('Pair')
	Else
		WriteLn('Impair');
	
End.