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