2 câu trả lời
program uoc;
uses crt;
var n,i: integer;
begin
clrscr;
write('nhap n:'); readln(n);
for i:=1 to n do if n mod i =0 then write(i:3,',');
readln
end.
program tim_uoc;
uses crt;
var n,i : integer;
begin
clrscr;
write('nhap so n:'); readln(n);
for i:=1 to n do if n mod i=0 then write(i:3,',');
readln
end.