viết chương trình pascal nhập số nguyên bất kì có 3 chữ số rồi tính tổng các chữ số đó. Giup tui với tui sắp nộp rùi

program chuso;

Uses crt;

Var

           A,tong:integer;

Begin

          Repeat

            write('Nhap a: '); readln(a); 

          Until (a>99) and (a<1000);

          Tong:=0;

          while a<>0 do

          Begin

                 tong:=tong+(a mod 10); 

                 A:=a div 10;

          End;

          write('Tong cac chu so cua a la: ',tong);

          Readln;

End.

#HN

#Chuc_em_hoc_tot

uses crt;

var n, a, b, c : integer;

begin

clrscr;

write('Nhap so bat ki co 3 chu so : '); readln(n);

a := n div 100;

b := (n - (a * 100)) div 10;

c := n - a * 100 - b * 10;

write('Tong cac chu so : ', a + b + c);

readln

end.