Var sum, a, a1, a2, a3:integer;
Begin
Writeln('Введите трехзначное число');
Readln(a);
a1:=a div 100 ;
a2:=(a div 10) mod 10 ;
a3:=a mod 10;
sum:=a1+a2+a3;
Writeln(sum);
End.
