Составьте алгоритм с помощью которого можно определить , является ли сумма цифр задорного трёхзначного числа 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'); endend.