Вопрос пользователя:
Дано 3-х значное число N. Проверить, будет ли сумма его цифр чётным числом.
Илюха отвечает:
read(n);
s = str(n);
n1 := int(s[1]);
n2 := int(s[2]);
n3 := int(s[3]);
if (n1+n2+n3) mod 2 = 0 then writeln("Сумма чисел четная")