Question

написать программу определения четности тела (на паскале).

Answer 1

не понимаю что значит "четность тела". скорее всего вы имели ввиду четность числа. вот прога:

var a: integer;
begin
read(a);
if a mod 2=0 then write('четно')
else write('не четно');
end.

Answer 2

Для написания программы определения четности числа на языке Паскаль, можно использовать следующий код:

program CheckEvenOdd;
var
  num: integer;
begin
  writeln('Введите число: ');
  readln(num);
  
  if num mod 2 = 0 then
    writeln('Число ', num, ' является четным.')
  else
    writeln('Число ', num, ' является нечетным.');
end.

В этой программе мы сначала запрашиваем у пользователя ввод числа с помощью `readln`. Затем мы используем оператор `if` для проверки, является ли число четным или нечетны