program bai_so;
uses crt;
var n,dn,d,t:longint;
begin
clrscr;
write('Nhap N: '); readln(n);
dn:=0; d:=0; t:=0;
while n>0 do
begin
dn:=dn*10+n mod 10;
d:=d+1;
t:=t+n mod 10;
n:=n div 10;
end;
writeln('a. So dao la: ',dn);
writeln('b. Tong cac chu so la: ',t);
writeln('So luong chu so la: ',d);
readln;
end.