var    
a,b,c,n,k:integer;
 begin 
writeln ('Введите трехзначное число');
readln (n);
a:=n div 100;
b:=(n div 10) mod 10;
c:=n mod 10;
k:=a+b+c;
if (k mod 2 =0) then
 writeln ('Сумма цифр числа',' ',n,' ','четное число')  
  else  writeln ('Сумма цифр числа',' ',n,' ','нечетное число');

end.