Nhập vào 1số nguyên dương N (điều kiện N nhỏ 100 kiểm tra xem số N có mấy chữ số

program oken;
uses crt;
var n,dem: byte;
begin
    clrscr;
    write(‘Nhap n: ‘); readln(n);
    dem:=0;
    while n<>0 do
        begin
            n:=n div 10;
            dem:=dem+1;
        end;
    writeln(‘Co ‘,dem,’ chu so’);
    readln;
end.