uses crt;var m,ans:string;    i:longint;function add(a,b:string):string;var ans:string;    sum,carry,i:longint;begin    carry:=0; ans:='';    while length(a) < length(b) do a:='0' + a;    while length(b) < length(a) do b:='0' + b;    for i:=length(a) downto 1 do        begin            sum:=ord(a[i]) - 48 + ord(b[i]) - 48 + carry;            carry:=sum div 10;            ans:=chr(sum mod 10 + 48) + ans;        end;    if carry > 0 then ans:='1' + ans;    exit(ans);end;beginclrscr;    readln(m);    ans:='0';    for i:=1 to length(m) do        ans:=add(ans,m[i]);            if ans > '0' then        writeln(add(m,ans))    else        writeln(0);readln;end.