Составьте программку, которая определяет, является ли сумма цифр введенного целого трёхзначного

Решение задачки:
Код написан в программе PascalABC.NET.
var ch, ch1, ch2, ch3, sum:integer;
begin
write(Введите трехзначное число: );
readln(ch);
ch1:=ch div 100; //Нахождение первой числа введенного числа.
ch2:=(ch mod 100) div 10;//Вычисление 2-ой числа.
ch3:=ch-ch1*100-ch2*10;//3-я цифра.
sum:=ch1+ch2+ch3;
//Если функция odd(i)=true, тогда i - нечетное число.
if odd(sum)=true then writeln(Ответ: сумма цифр числа , ch, - нечетное число.)
else writeln(Ответ: сумма цифр числа , ch, - четное число.);
end.