Nhập một số nguyên dương n .Xuất ra màn hình a)Số đảo ngược của n b)Tổng các chữ số của n c)N là số có mấy chư số Giúp mnh voi

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.