Ответ:

Объяснение:

Решение :

Verified answer

Var

n: integer;

Begin

readln(n);

If ((n Div 10)+(n Mod 10)) Mod 2 = 0 Then write('четное')

Else write('нечетное');

End.