Помогиииите! Нужно написать программу которая определяет является ли сумма цифр двухзначного числа четной

если число не очень длинное, то можно считать в стринг. но если число длинное, то это не прокатит

var

q:string;

i,a,n:integer;

begin

readln(q):

n:=length(q);

for i:=1 to n do

a:=strtoint(q[i]);

if a mod 2 = 0 then writeln("YES) else writeln("NO");

end.