program CheckSumIsEven;

var
num, digit1, digit2, digit3, sum: integer;

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

// проверка на трехзначность
if (num < 100) or (num > 999) then
begin
writeln('Введенное число не является трехзначным');
exit;
end;

// вычисление суммы цифр
digit1 := num div 100;
digit2 := (num div 10) mod 10;
digit3 := num mod 10;
sum := digit1 + digit2 + digit3;

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