Cho 1 số tự nhiên n, hãy cho biết các ước số dương của n

program uocduong;

uses crt;

var n,i:integer;

begin

       clrscr;

       write(‘Nhap so nguyen duong n: ‘);   readln(n);

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

       for i:=1 to n do

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

       readln;

end.