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

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 - четное значение