program oddeven;
var a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2 = 0 then
writeln('Число чётное')
else
writeln('Число нечётное');
end.
