Число является четным, если его остаток от деления на 2 равен нулю, то есть если число делится на 2 нацело. В Pascal есть оператор mod, который и ищет остаток от деления по следующей структуре:
var mod num
var - переменная (или просто число)
num - делитель числа
Пример:
if g mod 2 = 0 then write('Четное') else write('Нечетное')
Ну тут думаю всё понятно. Мы просто спросили у программы делится ли число g на 2 нацело и если да, то написать "Четное", а если нет, то "Нечетное"