begin
var a: integer;
begin
if a mod 2=0 then writeIn(Число является чётным)
else writeIn(Число является нечётным);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.