Program FNG;
Uses crt;
Var St: Ansistring;
    s: qword;
    i: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);

        If St[1]='-' then Delete(St,1,1);
        s:=0;
        For i:=1 to length(St) do
                s:=s+Ord(St[i])-48;
        Write('S = ',s);
        Readln
End.

code của mình đây nha <3

#include <bits/stdc++.h>
using namespace std;
int strtti(string s)
{
    int total=0,a,temp=0;
    for(int i=0;i<s.size();i++)
    {
        char c=s[i];
        a=(int)c-48;
        temp=temp*10+a;
        if(i==s.size()-1)
        {
            total+=temp;
        }
    }
    return total;
}
int tongchuso(int n)
{
    int sotachra,s=0;
    for(;n!=0;){
        sotachra = n % 10;
        s += sotachra;
        n /= 10;
    }
    return s;
}
int main()
{
    string s;
    cin>>s;
    cout<<tongchuso(strtti(s));
    //samon247
    return 0;
}