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

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