var n,i,j,vt : longint;

res : int64;

begin

    readln(n);

    if n = 1 then

        write(1);

    else

    begin

        res := 1;

        vt := 1;

        for i := 2 to 500 do

        begin

            res := (res div i + 1) * i;

            vt := vt + 1;

            if vt = n then

            begin

                writeln(res);

                break;

            end;

            for j := 1 to i-1 do

            begin

                res := res + i;

                vt := vt + 1;

                if vt = n then

                begin

                    writeln(res);

                    break;

                end;

            end;

        end;

   end;

end.

Code cho c++:

#include <cstdio>
#include <cmath>

int main() {
    int n; scanf( "%d", &n );
    if ( n == 1 ) printf( "1\n" );
    else {
        int k = (int) ceil((sqrt(1+8*n)-1)/2);
        n -= (k-1)*k/2; int res = 1;
        for( int i = 2; i < k; ++i ) res = (res/i+i) * i;
        res = (res/k+1)*k;
        printf( "%d\n", res + (n-1)*k );
    }
    return 0;
}

Code cho pascal:

var n,re:longint;
i,j,k,t:longint;
begin
     read(n);
     j:=0; k:=0;
     while j<n do
     begin
          inc(k);
          j:=j+k;
     end;
     t:=n-(j-k);
     re:=1;
     for i:=2 to k-1 do
         re:=re+i-re mod i+i*(i-1);
     re:=re+k-re mod k+k*(t-1);
     if n=1 then write(1) else write(re);
end.