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

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