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