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

Var
a,sum:integer;
begin
Read(a);
while (a > 0) do begin
  sum += a mod 10;
  a := a div 10;
end;
Writeln(sum);
end.