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

var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
if s mod 2=0 then writeln('s = ',s,' - четное значение')
else writeln('s = ',s,' - нечетное значение');
end.

Пример:
394
s = 16 - четное значение