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

Program n1;
var a: integer;
sum: real;
begin
write('введите 4-х значное число: ');
readln(a);
sum:=(a mod 10)+((a mod 100)-(a mod 10))/10+((a mod 1000)-(a mod 100)-a mod 10)/100+(a div 1000);
if(round(sum) mod 2=0) then writeln('сумма четная') else writeln('сумма нечетная');
end.