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("Сумма чисел четная")
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("Сумма чисел четная")