Trả lời:
program UocSo;
var
    n, i: integer;
begin
    writeln('Nhap so nguyen n: ');
    readln(n);
    writeln('Cac uoc cua ', n, ' la: ');
    for i := -n to n do
    begin
         if (i <> 0) and (n mod i = 0) then
         begin
             writeln(i);
         end;
    end;
end.
 

- Giải thích:

Chương trình sẽ nhập số nguyên n từ người dùng.

Sau đó, chương trình sử dụng vòng lặp for để duyệt qua tất cả các số nguyên từ -n đến n.

Với mỗi số nguyên i, chương trình kiểm tra xem i có phải là ước của n hay không bằng cách kiểm tra n mod i có bằng 0 hay không. Nếu i là ước của n, chương trình sẽ in i ra màn hình.

Chú ý rằng chương trình cũng kiểm tra xem i có khác 0 hay không để tránh lỗi chia cho 0.
 

Chúc may mắn!