Program zz; var a:integer; begin readln(a); a:=a mod 10; if a mod 2=0 then writeln(a,' -четное число') else writeln(a,' -нечетное число'); end.