var a,s:integer;
begin 
write ('a='); readln (a);
s:=0;
while a>0 do begin
s:=s+(a mod 10);
a:=a div 10;
end;
write ('Summa=',s);
end.