program ideone;
function SumNum(sum,num:integer):integer;
begin
if 0 = num then
begin
SumNum:=sum;
exit;
end;
SumNum := SumNum(sum + num mod 10,num div 10);
end;
begin
Writeln(SumNum(0,1234));
end.
cHJvZ3JhbSBpZGVvbmU7CgoKZnVuY3Rpb24gU3VtTnVtKHN1bSxudW06aW50ZWdlcik6aW50ZWdlcjsKYmVnaW4KICAgIGlmIDAgPSBudW0gdGhlbgogICAgYmVnaW4KICAgICAgICBTdW1OdW06PXN1bTsKICAgICAgICBleGl0OwogICAgZW5kOwogICAgU3VtTnVtIDo9IFN1bU51bShzdW0gKyBudW0gbW9kIDEwLG51bSBkaXYgMTApOwplbmQ7CgpiZWdpbgoKCVdyaXRlbG4oU3VtTnVtKDAsMTIzNCkpOwoJCmVuZC4=