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

//Pascalvar a, sum: integer; beginwrite('Введите число:'); 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.