begin
writeln('Ââåäèòå öåëîå ÷èñëî ');
read(c);
b:=0;
a:=c;
while a<>0 do begin
x:=a mod 10;
a:= a div 10;
b:=b+x;
end;
writeln('Ñóììà öèôð ÷èñëà ',c,' ðàâíà ',b);
end.