Xác định bài toán,mô tả thuật toán,viết chương trình nhập vào số nguyên n in ra màn hình các ước của n

var  a:array[1..1000] of longint;
       m,x,i,n:longint;
begin
        write('Nhap n: ');readln(n);
        m:=0;          

        writeln('Cac uoc cua ',n,' la: );
        for x:=1 to trunc(sqrt(n)) do
         if n mod x=0 then
         begin
                writeln(x);
                m:=m+1;
                a[m]:=n div x;
         end;
        if (sqrt(n)=trunc(sqrt(n))) then
                m:=m-1;
        for i:=m downto 1 do writeln(a[i]);
        readln;
end.