Program Parite;
Var
N : Integer;
Begin
Writeln ('Donner un entier '); 
Readln (n);
IF n mod 2 = 0 Then Writeln (n,' est pair')
Else Writeln (n,' est impair');
End.