Bài này mình tìm tất cả ước của a luôn
Có sai sót bạn thông cảm chờ mình sửa
uses crt;
var a,i:longint;
begin
clrscr;
write('Nhap so can tim: ');readln(a);
write('U(',a,')={ ');
for i:=1 to (a-1) do
if a mod i=0 then write(i,', ');write(a);write(' }');
readln;
end.