МНОГО БАЛЛОВ. Написать на языке Паскаль данную задачу. Желательно, с пояснениями.
Дано целое 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.