q198427170

program q198427170;

var x, s: integer;

begin
  readln(x);

  s:=0;
  while (x <> 0) do
  begin
    s:= s + x mod 10;
    x := x div 10;
  end;

  writeln('Сумма = ',s);

  if (s mod 10 = 3) then
    writeln('Сумма заканчивается на 3');

  if (s mod 2 = 0) then
    writeln('сумма чётная')
      else writeln('Сумма нечётная');
end.