Условный оператор
if a mod 2 = 0 then write\('Да'\) else write\('Нет'\);
позволяет определить, является ли число a: