Program abc;
var x,a,b,c: integer;
begin
writeln('vvedite chislo');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
writeln(a+b+c);
end.
Program abc;
var x,a,b,c: integer;
begin
writeln('vvedite chislo');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
writeln(a+b+c);
end.