Много . написать на языке паскаль данную . желательно, с пояснениями. дано целое 3-хзначное число. определить, является ли сумма его цифр четной.

var a,s:integer;
begin
repeat
write('vvedite triohznacinoe cislo:');
readln(a);
until(a>99)and(a<1000);
s:=a div 100+a div 10 mod 10+a mod 10;
 if s mod 2=0 then
writeln('summa zifr ciotnaia')
else
writeln('summa zifr neciotnaia');
readln;
end.