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.