uses crt;
var a:integer;
begin
a=5;//Сюда твое данное число
//Если с клавиатуры вводить,то тогда пиши readln(a);
If a mod 2=0 then write('Чётное')
else write('Нечётное');
end.
