vẫn là cách làm như bạn nói nhưng ta sẽ thay đổi điều kiện vòng lặp là:

var dem: integer

dem := 0;

while (i*i<=n) do 
begin

 if (n mod i = 0) then 

  begin

    dem:= dem + 1;

    if (i <> n div i) then dem:=dem+1;

  end.

 i=i+1;

end.

(code này mình làm sơ, chủ yếu để bạn hiểu)

giải thích: tại sao điều kiện không phải là i <= sqrt(n) mà là i*i<=n ? 

- Tuy 2 biểu thức này mang ý nghĩa giống nhau, nhưng dùng i*i <= n sẽ ra được số nguyên luôn. Còn dùng i <= sqrt(n) cần phải có thêm một hàm làm tròn trước nó để ra được dạng số nguyên.