Дано трехзначное число. проверить будет ли сумма его цифр четным числом. на pascal abc

Program dsjugf;
uses crt;
var a,b,c,s: integer;
begin
readln(a);
s:=0;
b:=a mod 10;
a:=a div 10;
c:=a mod 10;
a:=a div 10;
s:=a+b+c;
if ((s mod 2)=0) then writeln('четное');
else writeln('нечетное');
readln;
end.