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

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