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

Решение на языке Pascal

program pr;

var n,a,b,c, sum:integer;

begin

readln (n);

a:=n div 100;

b:=n mod 100 div 10

c:=n mod 10

sum:=a+b+c;

if  sum mod 2 = 0 then writeln ('Сумма цифр четная') else writeln('Сумма цифр четная');

readln;

end.