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.
UHJvZ3JhbSBQYXJpdGU7ClZhcgpOIDogSW50ZWdlcjsKQmVnaW4KV3JpdGVsbiAoJ0Rvbm5lciB1biBlbnRpZXIgJyk7IApSZWFkbG4gKG4pOwpJRiBuIG1vZCAyID0gMCBUaGVuIFdyaXRlbG4gKG4sJyBlc3QgcGFpcicpCkVsc2UgV3JpdGVsbiAobiwnIGVzdCBpbXBhaXInKTsKRW5kLg==