Составьте программу, печатающую значение TRUE,если указанное высказывание является истинным, и FALSE в противном случае: сумма цифр данного трехзначного числа N является четным числом
ПРОШУУ ПОМОГИТЕ ПОЖАЛУЙСТА(((РЕШАТЬ НА ПАСКАЛЕ..

var a,n: integer;begin a:=0;readln(n);  while n<>0 do   begin    a:=a+(n mod 10);    n:=n div 10;   end; if a mod 2=0 then  writeln('Сумма цифр числа - четная') else  writeln('Сумма цифр числа - нечетная');end.