Var x:integer;
Begin
Readln(x) ;
If x mod 2=1 then writeln ('число нечетное)
Else x mod 2=0 then writeln (' число чётное);
End.
Var x:integer;
Begin
Readln(x) ;
If x mod 2=1 then writeln ('число нечетное)
Else x mod 2=0 then writeln (' число чётное);
End.