Giúp mik bài này vs ạ pascal nhé

Var b,c,n,t: int64;
    i: longint;
////
Function tinh1(n: longint): longint;
Var i,b,d: longint;
begin
    For i:= 1 to trunc(sqrt(2*n)) do
        If 2*n mod i = 0 then 
            begin
                d:= (i + 2*n div i -1);
                If d mod 2 = 0 then b:= d div 2
                    else continue;
                If (b > 0) and (b <> n) and ( b-i+1 > 0) then 
                    begin
                        tinh1:= b-i+1;
                        //tinh:= b;
                        exit;
                    end;
            end;
    tinh1:= 0;
    
end;
///
Function tinh2(n: longint): longint;
Var i,b,d: longint;
begin
    For i:= 1 to trunc(sqrt(2*n)) do
        If 2*n mod i = 0 then 
            begin
                d:= (i + 2*n div i -1);
                If d mod 2 = 0 then b:= d div 2
                    else continue;
                If (b > 0) and (b <> n) and ( b-i+1 > 0) then 
                    begin
                        //tinh:= b-i+1;
                        tinh2:= b;
                        exit;
                    end;
            end;
    tinh2:= 0;
end;
///
begin
    Read(n); t:= 1;
    b:= tinh1(n); c:= tinh2(n);
    If ( b = 0 ) or ( c = 0) then Writeln(-1)
        else
            For i:= b to c do
                Begin
                    Write(i,' ');
                    t:= t*i;
                end;
    writeln;
    write(t);
end.