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.

program oken;
uses crt;
var a,i,dem: longint;
begin
    clrscr;
    write('Nhap so a: '); readln(a);
    write('5 uoc cua ',a,': ');
    dem:=0;
    for i:=1 to (a-1) do
        if (dem<=5) then
            if (a mod i=0) then
                begin
                    write(i,'; ');
                    dem:=dem+1;
                end;
    readln;
end.