Дано трехзначное число n. проверить, будет ли сумма его цифр четным числом. кто может, напишите алгоритм решения для программы паскаль

Var a,b,c,k:integer;
begin
read(a); c:=10; b:=0;
for k:=1 to 3 do begin
b:=b + a mod c; c:=c+10; end;
if (b mod 2= 0) then write ('Norm') else write ('Nechetnoe');
end.