дано 2х значное число определить является ли сумма цифр четной

Var A:integer;BeginWriteLn('Введи двузначное число');Read(A);if (A mod 10 + A div 10) mod 2 = 0 then Write('Сумма цифр чётная')else Write('Сумма цифр НЕчётная')End.