Напишите программу, выводящую true, если высказывание является истинным, и false в противном случае для утверждения: «сумма цифр трехзначного числа х является четным числом». значение числа х вводится с клавиатуры.

Var x:integer;
begin
writeln('Введите чилос x: ');
readln(x);
  if x>= 100 then
      if (not odd(x)) then
          writeln('TRUE')
        else
          writeln('FALSE')
        else
         writeln('Число не трехзначное');
 end.

Надеюсь правильно понял тебя и составил программу верно.