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

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.