Составьте программу, печатающую значение TRUE,если указанное высказывание является...

Question

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

Answer 1

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.