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