Написать программу: Дано трехзначное число. Найти сумму цифр числа и определить является ли она четным числом.

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