nhập số nguyên n đếm xem n có bao nhiêu chữ số vd 123 có 3 chữ số môn tin nha

program dem_chuso;

uses crt;

var n:longint;

      d:byte;

begin

       clrscr;

       write(‘Nhap n: ‘);   readln(n);

       d:=0;

       while n>0 do

              begin

                     d:=d+1;

                     n:=n div 10;

              end;

       write(‘So chu so la: ‘,d);

       readln;

end.