program CheckEvenNumber;
var
number: integer;
begin
writeln('Введите число: ');
readln(number);
if number mod 2 = 0 then
writeln('1')
else
writeln('0');
end.
Чтобы определить, является ли число четным на языке программирования Pascal, можно использовать операцию взятия остатка от деления на 2. Если остаток равен 0, то число четное, иначе - нечетное. В данной программе пользователю предлагается ввести число, после чего программа выводит 1, если число четное, и 0, если число нечетное.