var a,b,s:integer;

begin

read(a,b);

s:= a+b; //Узнаем сумму

Writeln (s);

if s mod 2 = 0 then Writeln ('Четное')

else Writeln ('Не четное');

end;

Если мой ответ вам помог - выберите его лучшим :)                       Заранее спасибо