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

var a,s:integer;beginreadln(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.Пример:394s = 16 - четное значение