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

//Pascal
var a, sum: integer;
begin
write('Введите число:'); readln(a);
  while a lt;gt; 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.