XJOI 1147 整数的各位之和

XJOI 1147 整数的各位之和

题目描述：
求输入的一个整数的各位之和。

输入格式：
输入一行，包含一个整数。

输出格式：
一个整数.

样例输入：
123

样例输出：
6

var a,b,c,e,i:longint;
function swh(a:longint):longint;
var t:longint;
begin
t:=0;
while a<>0 do
begin
t:=t+a mod 10;
a:=a div 10;
end;
swh:=t;
end;
begin
readln(a);
writeln(swh(a));
end.