Tìm các ước của số nguyên dương N (0<N<10^12) sử dụng pascal

program Hello;
uses crt;
var n: int64;
    i, d, l: longint;
begin
    readln(n);
    l:= trunc(sqrt(n));
    for i:= 1 to l do 
        if n mod i = 0 then
            write(i, ' ');
    for i:= l - 1 downto 1 do
        if n mod i = 0 then 
            write(n div i, ' ');
readln;
end.