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