program CheckEvenNumber;
var
num: integer;
begin
writeln('Введите произвольное число: ');
readln(num);

if num mod 2 = 0 then
writeln('Число ', num, ' является четным.')
else
writeln('Число ', num, ' не является четным.');

end.