Viết chương trình nhập vào 1 số nguyên n (n>0). In ra các ước của n. Em đang cần gấp, mọi người giúp em với ạ! Em cảm ơn nhiều!

program uoc_n;

uses crt;

var n,i:integer;

begin

        clrscr;

        write(‘nhap n: ‘);   readln(n);

        write(‘Cac uoc cua ‘,n,’ la: ‘);

        for i:=1 to n do

                if n mod i=0 then write(i,’ ‘);

        readln

end.