Var n,dem,tong:Longint; Begin clrscr; Write('Nhap so nguyen duong nhieu hon 1 chu so:'); Readln(n); tong:=0; dem:=0; While n>0 Do Begin Inc(dem); tong:=tong+n MOD 10; n:=n DIV 10; End; Writeln('Tong cac chu so:',tong); Writeln('So cac chu so=',dem); Readln; End.