program SumOfDigits;

var
num, originalNum, sum: integer;

begin
// Ввод числа
writeln('Введите число: ');
readln(num);

// Сохраняем оригинальное число
originalNum := num;

// Вычисляем сумму цифр числа
sum := 0;
while num <> 0 do
begin
sum := sum + num mod 10;
num := num div 10;
end;

// Вывод суммы цифр числа
writeln('Сумма цифр числа ', originalNum, ' равна ', sum);

// Проверка на четность суммы
if sum mod 2 = 0 then
writeln('Сумма является четным числом')
else
writeln('Сумма не является четным числом');
end.