не понимаю что значит "четность тела". скорее всего вы имели ввиду четность числа. вот прога:
var a: integer;beginread(a);if a mod 2=0 then write('четно')else write('не четно');end.
