program phuongt;
uses crt;
  var
      i, n, b, j, x: integer;
begin
        clrscr;
        write('n = '); readln(n);
        if (n<1000) and (n>99) then
        begin
                j:=0;
                while n<>0 do
                begin
                        x:=n mod 10;
                        n:=n div 10;
                        b:=b*10+x;
                        j:=j+x;
                end;
                write('Ket qua: ',j);
        end
        else
        write('n la so co 3 chu so');
        readln
end.

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ị