Сумма цифр целого числа..., Помогите решить задачку Опции

[Shaddix]

Помогите, плз., решить задачу:
"Найти сумму цифр целого числа".
Заранее благодарю...

[Catty]

Код

var b,t,s:integer;
a:longint;
begin
read(a);
s:=0;
repeat
b:=a div 10;
t:= a-b*10;
s:=s+t;
a:=b;
until a<=0;
write(s);
end.