tinh_so

uses crt;
var     i,S,dem,x,val:longint;
    phan_du,phan_nguyen:int64;
    A: array [1..1000] of integer;
begin
    clrscr;
    write('Nhap vao mot so nguyen duong: '); readln(val);
    x:=val;
    S:=0;i:=1;
    while val > 0 do
        begin
            phan_du:=val mod 10;
            phan_nguyen:=val div 10;
            val:=phan_nguyen;
            A[i]:=phan_du;
            i:=i+1;
        end;
    dem:=i-1;
    for i:=1 to i-1 do
    	S:=S+A[i];
    writeln('Tong cac chu so cua ',x,' la: ',S);
    writeln('So ',x,' co ',dem,' chu so');
    readln
end.