Задача из примера выводит true, когда и только когда введенное число х - четное. Обратная задача: вывести true когда и только когда введенное число х - Нечетное. То есть обратная программа выглядит так же, но строчка
a := x mod 2 = 0; заменяется на строчку a := x mod 2 <> 0;
write('Число четное - ', a); заменяется на write('Число нечетное - ', a);