Как в pascal abc написать что число х нечетное число

odd(x) определяет, нечетное ли число x.
Используй это в условном операторе: if(odd(x)) then write('x - нечетное') else write('x - четное');