program tinhtong;
uses crt;
var n,S,A,B,C:integer;
begin
clrscr;
write('n ='); readln(n);
if (100<=n) and (n<=999) then
begin
C:=n mod 10;
B:=n div 10; B:=B mod 10;
A:=n div 100; C:=C mod 10;
S:=A+B+C;
writeln(' Tong 3 chu so cua so ',n,' la: ',S);
end
else writeln('Vui long nhap so co 3 chu so');
readln;
end.
*A: hàng trăm
B: hàng chục
C: hàng đơn vị
S: tổng của hàng trăm, hàng chục và hàng đơn vị