*Bài giải
uses crt;
var n,i:word;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
*Giải thích:
-Bước 1: nhập n
-Bước 2: cho for i chạy từ 1 tới n
-Bước 3: nếu n chia hết cho i thì xuất i ra màn hình
-Bước 4: kết thúc