Сумма цифр данного трехзначного числа N является четным- Pascal(Паскаль)

var f:boolean;
     a:word;
begin
readln(a);
f:=(a div 100+a div 10 mod 10+a mod 10) mod 2=0;
write(f);
end.