uses crt;
var n:longint;
function tong (a:longint):longint;
 var s:longint;
 begin
 s:=0;
  while a<>0 do
   begin
    s:=s+a mod 10;
    a:=a div 10;
   end;
  tong:=s;
 end;
begin
 clrscr;
 readln(n);
 write(tong(n));
 readln;
end.

Uses Crt;

Var a,s: Longint;

Function tong(a,s: Longint): longint;

Var i: Longint;

Begin s:= 0;

While a <> 0 do

Begin

            i:= a mod 10;

            s:= s+1;

            a:= a div 10;

      end;

end;

Begin

        read(a);

        Write(tong(a,s));

end.

Bạn sai mấy chỗ mình tô đậm nhé, biến s phải dc khai báo trong function (s là tổng chữ số của a), s:=s+i chứ ko phải s:=s+1, sửa lại cho đúng là:

Uses Crt;

Var a: Longint;

Function tong(a: Longint): longint;

Var i,s: Longint;

Begin

s:= 0;

While a <> 0 do

     Begin

            i:= a mod 10;

            s:=s+i;

            a:= a div 10;

      end;

end;

Begin

        read(a);

        Write(tong(a));

end.