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

Uses crt;
var n, s: integer;
begin
s := 0;
readln(n);
if (n > 99) and (n < 1000) then
begin
while n > 0 do
begin
s += n div 10;
n := n div 10;
end;
if s mod 2 = 0 then writeln('YES')
else writeln('NO');
end
end.