Составьте программу,которая определяет,является ли сумма цифр введённого целого трёхзначного числа чётным числом.

Var a:integer;
begin
readln(a);
a:= (a div 100) + ((a div 10) mod 10)+ (a mod 10);
if a mod 2 = 0 then writeln (сумма цифр числа четная) 
else 
writeln (сумма цифр числа  нечетная);
end.