Em hãy xác định bài toán sau: Nhập bất kỳ số nào có 3 chữ số và tính tổng các chữ số đó (viết chương trình pascal)

program Tong;
User crt;

var n,S:integer;

begin

clrscr;

write("nhap vao 3 chu so");
readln(n);

S:=n mod 10;
       n:=n div 10;
     S:=S+n mod 10;
       n:=n div 10;
     S:=S+n mod 10;

 write('Tong cac chu so cua so ',n,' la: ',S);
readln;
end.

var a,n,tong:longint;
begin
        read(n);
        while n<>0 do
        begin
                a:=n mod 10;
                n:=n div 10;
                tong:=tong+a;
        end;
        write(tong);
readln;
readln;
end.